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ABSTRACT 


Listings and flow charts for the Boundary Layer Integral Matrix Procedure (BLIMP) 
computer program are given, along with conments on the function of each program 
or subroutine. In addition, input instructions, output description, a sample 
problem, flow charts and listings are given for the CABLE program, which couples 
BLIMP to an in-depth charring ablation analysis program. 


(Distribution Limitation Statement No. 2) 
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SECTION I 


INTRODUCTION 


This report (AFWL-TR-69-114, Vol. II) contains flow charts and listings 
for the BLIM and CABLE computer programs, and also input instructions, output 
descriptions, and a sample problem for the CABLE program. The BLIMP program 
solves the laminar or turbulent, nonzimilar multicomponent, equilibrium bound~ 
ary layer for axisymmetric or planar bodies and for general chemical systems. 
The theoretical development and computational procedures which form the basis 
for this computer program are discussed in reference 1. The bulk of the user's 
manual material (input, output, cperating instructions, dimensions, etc.) for 
the BLIMP program is contained in Volume I of this report. 


The CABLE program is a coupled boundary layer and in-depth material re- 
sponse calculational tool which uses the BLIMP code in combination with the CMA 
(reference 2) program te analyze the complete thermodynamic response of ablating 
bodies. A discussion of the coupling of the two basic computer codes is given in 
reference 1 as is a sample problem. The CMA program is completely documented 
in references 2-5, and will be only briefly discussed here. 


Section II of this volume is devoted to flow charts and listings for the 
BLIMP code. Section III contains descriptions of the CABLE input, output, prep- 
aration of a sample problem, and flow charts. 
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SECTION II 


BLIMP LISTINGS AND FLOW CHARTS 


The BLIMP subroutines are all numbered and are presented in this section 
in numerical order. The numbers reflect the approximate order in which the rou- 


tines are called. 


1. PROGRAM BLIMP ~ BO2A 


a. Function 


Master Program. Calls SETUP, ITERAT, OUTPUT. 








‘ b. Lasting 
ocooc. CAL IMP BOUNDARY LAYER INTEGRAL MATRIX PROCEQURE BLIv 004 
300002 DIMENSION FT(22) 
ocoocs COMMON IN TCOMS KRC 20) KEVAKOUT MATL MAT2T MATIS MAT2U,NETALeIS,\B024 Senew 
Ocuoc4 AS, ITANIIME MSP ONSPM1 SAM,NLEQ NSLEQG,NANL, ITS, KAPPA,CRAR,CASE(1S) 8024 4eNEw 
ocoous 2,PCRS. MWE NON SKOC LOD TTEM,NITEMSKRI7 NBT NAT2,IDENT-KRO(40) BO24 Sengw 
ocoode 3,KAUXC oO ITINE, USPEC MODIS) 8024 SeNEW 
000007 CMMONs WALCOMSEW( 40, 1),TH040, 1),HW040. 1) -SPWE 8,45, 4) 8024 JeNEW 
oconuaK L,9HOVW( 4D, 1),FLUKUC 3,405 L,I ma, TTWL IFW, SPw, I RMOYW, [FL 'Xy BO2s GonEW 

. ocoore 1 FORMAT( AL) edt 
92051c Osta TaSTsi4,s 
0c0011 Osta LaSTs14,/ 
oc0012 DATA IBLANK/2H / 
3¢0n13 CaLL SETINC4,1) 

390014 CaLL SET1I0(5,2) 

000015 Cab. SETOR(13,1100000,S00N00,°1%(8)) 

N00016 CaLL SETDR(14,600000,590000,FT(15)) 

900017 KINSS BLI™ 013 
000018 KAUT 86 Blin 014 
oc0019 JTIMES) 

000020 B(1)8.5 ELIm 015 
000g21 6(2)8.333333333 BLIm 096 
000022 A(3)8.166666666 BLIm 017 
000023 8(4)8,125 BLI™ O28 
op0g24 AC5)8 041666666 BLIm 019 
900028 A(6)8,033333333 BLIM 020 
ocooze 8(7)8,.0136686A6 BLIm 02% 

, 0coo27 §¢6)s,003964254 BLIm 022 
020028 Tad Bli~ o23 
090029 46 McEeHld 
00005C Sed BLIM 025 
000051 41 TEMS) BLim 026 
000032 42 Call SETuP OLIm™ 027 
of0u3s3 43 CalLL ITERAT BLIM O34 
ocdos¢ Call OyTePrrT BLIM 032 
000035 IF (JOENT.EQ,IBLANK) GO TO 55 
ocoo se CaLL FELTRU 
0C0037 55 CANTINUE 
000036 TECHON) 43,446,409 BLI™ 033 
000039 44 [TEMOIYEMe1 BLIM 034 
oco04s) TECSTEMONITEM) 42,642,459 BLI™ 035 
000041 45 1sefSes BLIm O36 
600042 IFCTSONS) 41,414,408 BLIM 037 
000045 40 READCKIN,1) JaST 
oco0o44 TECLAST©JAST) 47,46547 
000045 47 JECLaSTeJaST) 40,46,40 
00004¢ «8 src 


0c0047 ENO BLIM 038 
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SUBROUTINE SETUP - BO3A 


Function 


Control program for setting up boundary layer edge conditiona and 


streamwise derivatives for a new time (or subcase), a new station, or a new 


case. 


Called by BSIMP. 


b. 


Calls FIRSTG, LINMAT, RECASE. 


Listing 


CBO3A 


SUBROUTINE SETUP 
DIMENSION HIST1(605),HIST2(607) HIST3(514),VMAT(566) HIST4(600) 
-COMMON/BLGCOH/ = MOAC 74), 
1, LEFS(10), PLEASE, LEFW(10) 
COMMON/EDGCOM/ 
LUR( 40) RHOE( 40)» VMUE( 40), TE( 46) ,UEDGE, DUEDGE, D2UEDG, VMWE, HE, C90 
2 ,DSIP(40)+1DSIP,TTVS,TYCS( 40) 
ACOMMON/FLPCOM/TX$ (23  TUE(2} 9 TRHOE (2) » TTE( 21+ TVMUE(2)  TMAT( 366, 2) 
2, THF (15.2) LEFT(1002),TPE(2) o TRADS( 2), TOSIP(2) ,KQT(2) 


COMMON/HISCOM/C15C2+63, C4. ALPHD, BETA+2M( 4014) .26(04,44),25P (4514, Al 


4 90X1(40),HF(15,5),HG(15,3)+HSP(49,3, 8) HALPH,HUE,HHUE>HEW,OLXZ 
2,03M( 40) .BETAM( 40) 


COMMON INTCOM/ KR(20) KIND KOUT MATL MATZ MATIN sMAT2UeNETAD I> ae 
1S, IT NTIMENSP»NSPMZ NAM »NLEG,NNLEG NANL, $TS+KAPPA,CBAR, CASE(15) | 
MWE »NONsKQ(1095 STEM NITEM, KRL7 NBT NBT 2» IDENT) KR9( 40) 


2,8(8), 
3, KAUXO,JTIME, ISPEC»MD(3) 


COMMON/PRMCOM/TIME( 50),PREC40),PTET( 30),GE( 50),S(40),ROKAP( 40) 


4,RNOSEsVKAP»NOISC, IDTSC¢ 40) NSD(10) MSD(20)08TF( 50), 1PRE,RADNO, 
2CONE, RADFL( 50), RADR(40),RA0S( 40), TRAD 
COMMON/VARCOM/F (4,15) 1663, 45) SP(3,45, 9)»ALPH 
COMMON/WALCOM/FW( 400 2)eTWC40, 4),HWC40. 1)+SPHC 8,40, 1) 
L»RHOVWC40, 2) eFLUXIC 3,40, L)oSHWO ETH, IFWe ISPWs TRHOVW, IFLUXS 
EQUIVALENCE (HIST4 sXf) a (HIST2, PE), CHISTS.F)s(VMAT.C1),(HIST4,FW) 


2 dishie ae ada h 59 56H SECONDS ea a, edi! 


MOB( 74) NSPECeFR( 74.45) .W63) LEECLOD | 
PE(40, 1)¢PYE(40» 1),SPE( 8.40» 1),DUES,) 


Ete re 


! 
I 
\ 


SEIT tere Senet cf tdectomneser, Shen Tac mantle tenor TARE A, 


wen A la 


2 Ey CTE oe 


6} 
3 FORMAT (ani 7HAHTIREEL2,5, 35H SECONDS ~ - + STREAMWISE DIMENSJONES? 


4, SeL4HFEET ~ = =) 2X3A6) 
4 FORMAT ( 4HASX4HCASE!3, 32¢2H #2X3A6) 


5 FORMAT(SHS7X4HCASEIS+14(2H ©)24H STREAMWISE DIMENSIONE12.8.13H FEE 


4T eee -3A6) 


990% FORMAT(13,7810.5) 


aaan 


DaTA MD(2)/6K / 
MD¢1)8MD{ 2) 

MN(3)8MD( 2) 

CALL ETIME 

Cau OATE(9sMD) 

CaLL T00(18.MD) 

KR(2)82 

JshOD¢ ITEM, 2)44 

TE CMWE 14£012154,154 

INPUT CONTROL AND TITLE CARD, NUMBER OF ELEMENTAL SPECIES TO BE 
CONSIDERED, TIMES AND BODY POSITIONS TO BE CALCULATED, AND 
REFERENCE CONOITIONSC(WHEN GIVEN AY THESE PRECISE TIMES AND BODY 
POSITIONS 

CALL RECASE 

Ka( 40380 

IF (KR(7),.6T.2) CALL TRMBL(2) 

N8Ta13 
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103 


v 404 


154 
1572 
1570 
1574 
14576 
1575 
1573 


1577 
1574 


153 


157 
155 


495 
f 1054 


1052 
136 
203 


204 
202 


107 
1262 


NOTE SL4 . 
1Sa4 . ; 
ITa4 oS peeks By Bigs od aie 


IF(KR(2)) 1044104,403 


-CALL LINMAT 


KR1I78KR(17) 

IF( TS#ITEM=2) 105.108.1872 

IF(KR(3)) £570,4577.1370 

IF(@R( 6394) 15749157401576 

JF¢1Se4) 157751877,1876 

DO 1573 Ka1,NSP 

IFCLEFCK}24) 1573,14575,1573 

LEF(K)s2 

CONTINUE 

TFQONITTEM@4) 1574,167,1574 

WRITECNBTIHISTL HIST2sHIST3sHIST4,W,LEF, RADS,KG(10) 
IFCITEMe1) £57,156,157 

1NyMenBt \, 

MBTaeNAT2 

HBT22}0UM 

OO 453 Iea,NlTEM 

BACKSPACE NBT? 

GU TO 155 

TF(1S91) 1052105,1855 

READ(NST2IHISTL HIST2 MISTERHISTO, W)LEF, RAD KQ(10) 
GO TO 307 

CALL FIRSTG 

IF CTIMECL)) 1954,1552,1052 
ITABRABS(TINEC ITEM) ) 


WRITECKOUTS4) ITAB, MO. oor 


WRETECKOUT,2) TIMEC ITEM) MD 
1F(KR(7))204,204,203 
IF(KR(12).8E.1) GALL STATEN 

GO TO 202 

IF(KR(12)eNEe4) CALL INPUTCPTET(L)) 
CALL REFCON 

IF(KQ(¢9)eNE,O) CALL TRANCR(L) 
KR¢d2)21 

1S94 

00 1262 1#4,NSP 

IF(1S,EQGe2, AND, LEF CI) sEQ.2) LEPC I Sag 
LEFTCL, J e@LErC1) 








Anema 


Cewm=-COMPUTE HISTORIC INFORMATION 


1053 


1054 
126 
1261 


Cacl HISTX! 

IF(TINE(2)) 1053,1054,4054 
TTASSABS( TIMEC ITEM) ) 
WRITECKOUT,$) ITAB, SEIS}, MD 
GO TO 126 
WRITECKOUT, 3) TIMEC ITEM), S¢1S))MD 
DO 4264 I[81,NETA 

THE C1, J)#HF (155) 

TXT CSPBXT 1S) 
TRADS(U)#RADSC IS) 
TOSIPCUISOSIPCIS) 
TUE( J} SUEC IS) 
TRHOE CU) BRHOECIS) 
TTECUSTECIS) 

KQT( J) s¥AC10) 
TYME CJ) SVMUIECTS) 


-J~ 


ee er ee 
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00 484 184,566 ‘ 
1R4 TMAT( YT, J) sVMATOT) 
TPE(JU)@PE( ISe1) 
MWe ed 
C START OF ITERATION LOOP 
158 !TSss0 
-KRO47 8KRL7 
159 RETURN 
END 
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ce. Flow Chart 
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1571 IFCIS-1) 1577. 1577. 1576 


1878 DO 1573 ke1,KSP 


IFCLEF(KI-1) 1573, 1575, 1578 


187! LEFCKDa? 


[T6FF CONTINGE 


IFCITEM-3) 157.156. 157 


158 JDUMeNST 
hore g 
NBT2=20UN 


1S? IFCIS-1> 105,105, £55 ‘ 
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5 DEPENDENT CKRCE 
<KRC2) 


SAME SPECIES. ITS 
- IT OBVICUSLY CANO 









105 CALL FIRSTS 


IFCTIMECI)) 1051. 1052. 1052 






1082 WRITECKOUT.2> TINECITEM>,. MD 


106 IFCKRC7322049,208 203 


be 


208 JFCKRCL2>.NE.1) CRLL STATE 


GO TO 202 


2 L REFCON 
F¢IO6S>.NE.O> CALL TRANCR<L> 
KRC12 a1 


107 DO 1262 Iei,NSP 


IFCIS.EG.1.ANO.LEFCI2 £8.22 LEFCIo=t 


1262 LEFT<T. J.sLEFCI> 
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IC-~--- COMPUTE. HISTORIC INFORMATION 
CALL HISTXI 


TECTIMECI> 1059, 1056, 1058 : 
a 


1053 1THeAGSCTIME<IIEMD> " 
WRITECKOUT.5> ITA@, 3(I3), MO 


& 70 126 










DO 184 I=1,568 









O46 THATCT, JoaYMATCID 







TPECJ2=PECIS. 13 


MHESO 

c START OF IYERATION LOOP 
188 ITS*0 

KRCIP@KRIP 
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: 
! 3. SUBROUTINE ITERAT - BO4A A i 
1 a. Function i 
Control program for performing boundary layer iteration and tests 4 
maximum errors for convergence. Called by BLIMP. Calls LINCER, NONCER. $ { 
{ H rr 
| 4 
| i 4 
4 j 
it : 
. oS : 
{ { * 
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| i ; 
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ooo00s 
00002 
000003 
000004 
000005 
000006 
0000°7 
000006 
000009 
000040 
000013 
000042 
000013 
oo0os4 
000015 
000016 
000047 
000018 
000019 
000020 
00021 
000022 
000023 
oocozs 
000025 
000026 
000027 
000028 
000029 
000030 
000034 
or0032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
00c043 
000044 
000045 
000046 
oc0047 
000048 
000049 
000050 
000081 
000052 
000053 
000054 
000055 
000056 
000057 
000058 


4 
1 

ra 

Y 
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4 
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Paeete lyase eat poe ee went cere gr gape, we ne caret Rm iin 
b. Listing 
CBo44 - 8044 003 
SUBROUTINE ITERAT 8044 002 
COMMON/BLOQCOM/ MOAC 742, MOBS 72),NSPECOFRC 74,385),WC3),LEF(10) 804A 3 
1,LEFS(10),PIlEASE,LEPW(10) 804A 4 
COMMON/BUMCOM/ BUMP, CORMA, EASE, ICORM» WOOT, TFZ,1777,0TEMPKIP,{XBOGd § 
COMHMON/ERRCOM/FLE( 43),GLE(30),SPLE(30, 6), 8La(343) FLEM,GLEM B04, 6 
2,SPLEM( 6)0ELM(14)sELMMs TFLM,IGLM,ISPLMC 8) sNELM, ILMM,DPLS 43) B044 7 
2.96L(30),0SPL(30, 8)sFNLE(18),GNLE(28)9,SPNLE(45. 38),ENL(183) B04, «8 
3,FNLEM»ONLEM/SPNLEM( 8), ENLMM, TENLMsIGNLM,ISPNLMC 8) B04, 9 
4, NENLM, INLMM, OFNL(28),0GNL645) ,0SPNL¢1$» 8),0RNL(10) BO4a 10 
COMMON, INTCOM/ KRCZD) KINoKOUTSMATII »MAT23 sMATIJ,MAT2UsNETAL LIS ,NBOGA 14 
1S, ST NTIME,NSP,»NSPM2 »NAM,NLEG,NNLEQ.NANL» 1T6,KAPPA,CBAR,CASECSS) 9044 12 
2,808), MWE »NONSKQ( $0) ITEM NI TEMLKRALT NBT SNBT2, IDENT, KA9(40) BO4A 13 
3, KAUXO, JTIME, JSPEC»MD(3) B04a 14 
COMMON/PRMCOM/T IMEC 50),PRE(40),PTET( 50),GE¢ 50),$¢40),ROKAP( 40) Bose 45 
1,RNOSE, VKAP»NOTSC,S038C(40)sN8D(10) MSOC LO) ITEC 80),2PRE,RADNO, B04K 16 
2CONE , RADFL( 50) RAOR(40),RA08(40),1RAD B06a &7 
COMMON/VARCOM/F (4545) ,603045),9P(3,195, 9), ALPH BO04éa 18 
5 FORMATO 33,1X0F8 e359 FO 30h 7 0 40Fbe4e4P27.008633,68.4)) 
6 FORMAT /LXISHITERATED VALUEOLEX47HDAMP MAX OLIN MAX,ERRORS IN CO 
ANSERVATION EQS,/1XSEHITS TIME ALPH  *PPYW ERROR MOHEN 
4TiM ENERGY 6(5XA4,A2)) 
4 FORMAT( 22H NON-CONVERGENT OUTPUT) BO4a 016 
182 1TSa}TSe, B04a 019 
JTIMESCMAXOCUTIME, 0) 
CALL TLEFTCILEFT) ROG 
LECILEFT©JTIME) 30030032 
30 JTIMER-JTIME 
KR(4) 8% ROG 
KR626 924 ROG 
34 CONTINUE : ROG 
NONS2 : 
323 IF(1TS"5) 326,326,321 
320 JFCKR62)) 325,321,321 
324 16(KQC40)410) 326:322,326 
326 IFC(NON©2) 325,330,325 
325 RETURN 
322 KaCL0982 
1O38CCIS)e4 
EaS@00,44 
17602 
WRITECKOUT, 324) 
324 FORMAT( 96H2 PRIOR LAMINAR SOLUTION AFTER TRANSITION, TUABULENCE 
4 WILL BE INCLUDED AND SOLUTION CONTINUED //) 
328 JFCNON) 325,330,330 
330 CaLL LINGER 
NONa|O 
CaLl, NONCER B04 02% 
CALL ETIMEFCTIMD) 
FPPWeF(S,1)/( ALPH@ALPH) 8044 022 
TFCKG410),EG.2) GO TO 1900 
TECKRO4) OKR( 16) +KR(27)4KR628) /2dKA( 29) OKRIZOIONON) 189,189,1902 
489 IF (17S) 1902,1902,2981 B04A 
1900 KO(10)82 ‘ 
1903 IF (NSPMZ) 192,192,190 8044 
490 WAITECROUT,63(HOACK}sHODCK) oKed J NSPMS B04 025 
Ge TO 19% 





492 wRITECKOUT,7) 
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000059 
000060 
000061 
000062 
000063 
o00064 
000065 
000066 
000067 
000068 
000069 
000070 
000072 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000083 


C 


GO TO *94 
2912 TF £NGPM2)294,1940491 


19% WRITECKOUT SITS,» TIMD, ALPH,PPPW,EASE,ELMM, LPNLHsPNLEM, SGNLMSGNLEM, 
1¢1SPNLM(K) »SPNLEM(K) .Ked »NSPM¢) NON 


GQ TO 1920 


194 WRITECKOUT, 5) ITS, TIMD» ALPHsPPPW, CASE. ELMM, LFNLMs FNLEM, IGNLM, GNLEM 


1920 LFCKRO2)) 162,192%,492% 


14924 LECELMMOENLMM~,0002) 162,162- 259 
7 FORMAT(/7X65HITERATED VALUES 
aAVATION EQS, /4XS6HI7TS TIME 


2 ENERGY ) 
462 NONSO 
GO T0 320 
139 IFCITS°50) 1641601160 
1460 WRITECKOUT. 1) 


DAMP MAX.LIN MAX, ERRORS IN CONSE 


ALPH 


TF CELMMOENLMM= 02) 162026201602 


1604 NONed 

GO TO 320 

STERATE OR OUTBUT 
464 TFCKRC4)) 164,261,293 
493 NONeWd 

60 76 3a3 

END 
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B04A 
604s 
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0044 
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04a 


g0ea 


034 
032 


034 
036 
038 
040 


oNEW 
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c. Flow Chart 
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181 ITSsITS¢3 
STIME@MAXOCITIME.0> 
CALL TLEFTCILEFT) 


IFCILEFT-JTIMED 30.30.31 


$0 JTIME@-JTINE 
KREG Dh 
KRCIGDs< 


31 CONTINUE 
NOHe2 








oe oe 


323 IFCITS-5) 328.328.22] 


320 IFCKRC2)> 825,321,321 


921 TFSKQC109+16)° 326,822,323 


322 





KGC10)=2 
IDIsCC 38921 
ERSEr0.11 









1TSs? 
<KOUT 3249 
328 PoerT Cab : PRIGR LANINAR SOLUTION AFTER TRANSITION. TURBULI 
1 HILL BE INCLUDED AND SOLUTION CONTINUED //> 






| 328 IFCNON) $25.3$80.990 


330 CALL LIHCER 
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FeKQ¢10>.£0.2> 60 TO 1800 





£92 KRiTECKOUT.7> 


6 To 1920 


R3 
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oe me nee ect erate nei 
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1380 IFCRCe>> 162-1981. 1921 ay 
1881 IFCELKMVENUP=.-.0002) 162. 162-159 i 





{68 IFCITS-60> 161,160, 160 Wh 


IF CELMA+EN! O22 162.162. 1601 | 





101 NON=1 


161 IFCKRCEDD 182.181.1933 


| 103 HOR=-1 


60 TO $28 
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met 
eee astaiet gti 
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Hi 
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ea 
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* = 2 ete ee So ee ee ee 


aie On ans  & : 





> 
x 
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2 


a 
le = 

> z 2 = denesci 

err ncnm tar OD ne Tye PRY Sor erect CF Bponte Pd ce 8 CEPOL NEE il . 


“% 





oo00t1 
oogon2 
000003 
000604 
o000cs 
000006 
000007 
ooo00e 
000009 
000040 
000021 
c000i2 
006015 
000014 
000045 
000036 
000017 
000016 
000019 
000020 
000021 
a00022 
000623 
000024 
000025 
000026 
000027 
000028 
600029 
000030 
000031 
000052 
000033 
600034 
600055 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
o0c050 
000052 
000052 
000033 
000054 
000058 
000056 
000057 
000056 


aN 


b. 
6 
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Listing 
6658 
SUBROUT INENONCER 89840620 
INTEGER aSU,8SU 
DIMENSIONDQGJRNL( 7224) 8058 004 
OIMENSTONOELGJW(4) +DGUNL(453,2) ,WALLQUCS) 6058 005 
OIMENS J ONCOEEGV( 84) ,COEFQGV( 423) BOSH 006 
CORMON/BLGCOM/ MOAC 723, MOBE 72) ,NSPEC,FR( 72,19),W63),LEF(10) B05 7 
i, LEFS(10), PIEASE, LEFWw¢i0) 6088 8 
COMMON/BUMCOM/ BUMP ,CORMA, EASE, [CORM» WOT, TEZ.1777,D07EMP»KIP» 148058 9 
COMMON/COECOM/ €866,072080C90C20,C11,012,C435024+C18B088 40 
1,016,C27,048,C19,620,C24,C22,623,C24,C25,626,627,628,C29,030,C31,09038 i4 
2320033 003410359636 9637 1638 9639164010412062,043,044,045,0486,047,C49B088 12 
34249,€50,081,052,653,C654,059,654,057,698,639.660,064,062,0635064,08088 43 
4681066 166706681069 2C701673 0073067316749 C78 0 C765C7F 56781079, CB80.CAYBOSA 14 
5,0.82,C83,C84,085,C86,C67,C88 60358 15 
COMMON/COECON/ CKi( 8)sCK2€ 8)sCKS( 8sCK4( 890CKS( B2,6K4( 8) 6088 16 
2,CK7( 8),CK8C 8),CK9C 8),CKIO€ 8),CKAS( 89,CKI2¢ 8),CKIS< 8) Bose 49 
2oCK14€ 8), CK15¢ 8),CK26( 8)0CK39 G),CK180 8),CKL9( 8),CK20( 8) B05B 48 
3,CK22¢ 8),CK22¢ 8),CKKL( 8» 89eCKK2¢ By 8)6XM(5),XG(5),X8P(5, 9) 8088 49 
4,CKK3( 8, 8) 6088 20 
COMMON/CRBCOM/HCARB EMIS, STEF , ADUM, BDUMeCOUM,HTEF HMAT,EMISC,EMISYBOSB 24 
L HPC, ASUCS) -BSUCS) HPYGES) »RCHAR(3) »EMIV(S) K8(403, 18U 8058 22 
COMMON/EDGCOM/ PEC40, 2), PTE(40, 1),8PE¢ 8,40, 1),0UES,80595 23 
1UE6 40) sRHOE( 40)» VMUZ¢ 40), 7E040) UEDGE,QUEDGE,O2UEOG,VMWE,HE.CSO BO05R 24 
2 ,D83IP(40),IOSIP,TTVC, TVECC( 40) 6058 25 
CAMMON/EPECOM/ELCON: YAP» CLNUM, SCT, PRY, RED OVS, RNOVS, PS »PIMeCl,, 8088 26 
1TEPSAC 15) ,EPS¢, EL (25) 00P2 (9992) 003 (483) DRPE(L839) EPC, TREF,RETR 8083 27 
CAMMON/EQPCOM/ RBC 7152)eRCC 72529 eRO¢ 7402) REC 74,2) RFC 9452),8058 28 
2 TUC 7202)0PFC 729 FEA SPC 79), ATACLO)  ATBCL0) 0 ATC(10) WAT(10), 8058 29 
2 KATCSOD S TRELO) » SZeKZCLO) LAME C 71) 0PeZe7KCS00 FIeVNG 74). 8048 30 
3 VNUC 74,20) 2STFFsKROeHCHONCVSWMOWTME 7TAV0YVYS TLI0YWE 72966GC 7298058 34 
4 ,T0(40, 7), EPOVRK» SIGMA, BASHOL 6088 32 
COMMON/BOTCOM/SIP HIP EEL EENL »PLIG, CPP. IRE lERsAA,TITSsING34,237,8098 33 
4 MODEs HMELTs SMELT. THAX, THINS MELT) SUMN, GUML» NS, W888, 13P2,38P0,  B0Sa 34 
2 15, KKU, 8VA, SVG, SVE. 8V0,SUHG Fer CHP LEP RVs SPCUC NTC WTLeUC»HNG, 8955 35 
3 CCPGs TTMINe TTMAX se L2eL3e 18022) 288610) EBL610) 1A016,16) 88696), B03B 36 
4 1P€ 72), ALP(40) -PNUCLO) CAMN(20),GAMPC20),8LAM(20),0Y( 72),RV8, 8058 37 
3 CPC F2),HHC 729,886 749/7CC JASoVLNKC 74086 74). PNUBCS0)> 6058 38 
6 86640) oBLNK(20)06V610)s{80620) ,BRCAG) eUZ( 4) 8058 39 
COMMON/ERACOM/FLEC 43) /CLEC50),SPLAC30, 8) eBLA(533),PLEM, CLAM 6058 40 
A,SPLEMC 6), GLM614) RLMAsTPLM. SCL Me TSPLM( 8) eNZLM> SL MMLOFL C43) 9058 41 
2,061,630) ,D8PL¢30, 8), FNLE(28),GNL8(48),SPNLE(45, 6),ENL(153) 6058 42 
3, PNLEM>GNLEM,SPNLEM( 8), RNLMM, LENLIY SGNLM,ISPNLMC 8) B058 43 
4, NENLM, INLMM, OFNL (18) »OCNL ($5) ,O8PNL( 19. 8) eORNL(10) BOSH 44 
COMMON/ETACOH/ETAC25) DETACSS ) 080624) ,0CUC14),81(14),82624) 6058 45 
4,LAR(153),BA1643,109,802(30.98) 68058 46 
COMMON/PLXCOM/DELGWsOELUW( 6) ,DONL(453) eDUNL(993, 6) +WALLO 8058 47 
L,WALLSC 8),QWeVIKWE 93, 7PWALL 6059 48 
COMMON/HISCOM/C2 9 C20C3.04s ALPHD BETALZMC 4224) ,26(4,94),75P (4.44, 28088 49 
1 90X3040),HF(19.93,H6015,3).M8P (15,3, 8), HALPH, HUE, HHUEHFWeOLX2 86038 506 
2,03M(40),BETAM( 40) 6055 534 
COMMONS ENPCOM/ KR(20), KIN KOUT MATL MAT23 eMATSd MAT2J,NETA,I,%8,NB088 52 
18, ST NTIME NSP »NSPMS ,NAM,NLEQ,NNLEGONANL, JT8sKAPPA,CBAR,CASE(15) 8088 93 
2,808), MWR oNONSKQ(20) 5S TRM NITEM, KRAL7,NSTNOT2, IDENT KR9(40) A258 94 
3, KAUXO,JTIME, JBPEC,MOCS) 6038 38 
COMMON/NONCOM/AM( 453,453) eOVNL (953) TOW. 6088 56 
AVLNKWeCLPHC 9),OLPK( 6, 9) s0THW,OTKWE 8)-PLUXUB( 9) 8058 57 
COMMON/PRPCOM/PR( 45): 7(45) -RHOC 1S) 80625) -CAPC(S95),0R(15),H(95) BO0SA «(588 


Z ae 
wie PAE 2G, rec retin ene at SEI Ae TE TE i, Seer 


nee 


Shae 


ome neste Toe 


ee ee 





ca Na nm Lee SEINE SOP OCU 


- etn inn RET STE CNR Ce SIERO 


tos Bet tat hae he er. ee hak 


7 8 ante ERR Kania 


000059 1,CPBAR(15)eVMW(15) +PHIKC15, 8) eNRWOM,ORHOK( 8),2K¢ G).OEKH{ 8)» pB03B 39 
; 000060 2MUSK( B)+DMUSK( 8) +OTK( B),DPHZKK( 8), OPRK( 8),08CK( 8)sOCAPCK( 6)B8055 60 
i 006061 S,MHTILK( 3),0GRK¢ 8) +OCPBK( 8),DCPTX( 8) ,OMUL2K( 8),02KK( 8» 8) 8058 6% 
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: 000062 4,DPMIKK( Ay 8)» OMU4H, OMUSHDHTILH VMUL2,CT,CTROCPTILSHTIL  B088 62 
, : 000063 5, VMU3,07H, OCAPCH, OPRH,DSCH,OGRH,OCPBH,DCPTHOHUS2H,VHU(S8), RHOP 8055 63 
t ' 000064 6(45),PHIKP(15),HPsTP,/ZKP( 8) eVMUSP/VMU4P HT ILP/CRHOCL4),GMR(35) 8058 64 
} , 000065 COMMON/VARCOM/F (4,15),663,45),8P(3,39, 9), ALPH 8058 65 
j 000066 COMMON/WALCOM/FW( 40. 23,TWC40, 4),HHC 40, £)08PWC 8,40, 4) 6088 46 
000067 1, RHOVW(40, 4),FLUXUC 3,40, 2), SHW, SPH, IFW, ISPW, IRHOVW, LPLUXY 8058 67 
{ 000068 DIMENSION ENLM(2), JENLHC4) 

‘ 000069 EQUIVALENCE (ENLM(2),PNLEM) > (PENLMCS), SENLM) 

: 000076 EQUIVALENCE (DELGW,DELGJW)s (OGNL ,DQUNL)» CWALLGs WALLQU) g05ac380 
4 000071 DIMENSIONCORAR(1) 80540470 
7 000072 EGUIVALENCE( CORAR(4) » AM{4)) 80300480 
5 000073 EQUIVALERCE( AM,DQJRNL) 69500400 
3 000074 DIMENSION PREQ(1) 

: 000075 DIMENSION Z&I7(9) 

i 000076 EQUIVALENCE ( PREG( 4) eDRHOK) e058 

i 000077 EQUI VALENCE(C3,COBEGV), (CK2(02) ,CORFGY) 60540680 
; 000078 COoNBeeeNOTE 24041 ,54002,725,9306% WHEN REDIMENSIONING 80540690 
: 000079 EASESAMING(EASE®2, 01,0) 

‘ 000040 TECITS 4) 44.5542 

} 000081 5 EaSE 9 ,3333 80540730 
: 000082 SPNEW = 0, 

me 000083 BUMP 8 4,0 60540740 
( oo00R« IFC LTEMO{S@2) 3,302 
: o00css 2 1[FCWOOT) 4,3,3 
; f 000086 3 woofee,t2/C4 
‘ ‘ss 000087 4 PLEASES’, 

' 000043 1GORM = 4 20540760 
, 000089 CORMA * 1,E # 10 60846770 
: 000090 TF2 8 0, 80540780 
000091 1& (KROCIS)) 8.8)7 
| 000092 7 KRC9AKRO( IS) 
000093 8 DO 37 1e4,NETA 
000094 47 EPBA(3)30, 
| 000095 IPCKRE9)2) 1252009 
i 000096 9 FLUXU(3, £8, IT) 894, 60540765 
000097 10 [SPutzes 
000098 KKaFAXO(S  KECIS)) 
000099 WEL) © MLUXUCL 018» $7) 
000100 WC2) 0FLUXY(2,18.17) ensw 
000101 WCSIMFLUNICS, 38,37) eNgw 
000102 L2e2ekK 002 
000103 381,241 
000104 TECKR& 902) 24524546 
0c0105 16 HPGSHPYO(KK) 
000106 EMISCREMIV(KK) 
000107 HCARB@HCHAR( KK) 
000108 00 142 Je{SP»NSPEC 
000109 TFCMOAC J) OABUCKK)) $2,13,12 
000110 23 JFCMOBSY)-BBUCKK)) £2.44,12 
000111 14 {sUaJ 
000112 GO TO 44 
000113 42 CONTINUE 
000114 1SUe!SP 
000115 12 KIP80 
000116 Ix 8 0 805400380 
: 000117 Co=-° EVALUATE COEFFICIENTS AND ERRORS FOR NONLINEAR EQUATIONS 86540830 
000118 C INITIALIZE AM MATRIX 80520040 


Tee Sree ee 


Pe re & eee 


3b asaelotes eg. te 


Se Ne ines Saree SS 


Peer es 


. 
sak Belge Sl Guha ski ate POU i i a ei Os sachapabie ahaa xo 


a rope 


aes 


@ * 


~> oe & 


cd 


Seep rete parser wlntige es 


% 


sa 
* , : 2 
cop mnt tee Beas oat rarer eee creee 





ators ei amie cote ae aS 


oocs<9 
000320 
000121 
000122 
000125 
000124 
000225 
000126 
000127 
000128 
000229 
000150 
000331 
000252 
600133 
000434 
000135 
000134 
000337 
000138 
000139 
000140 
000242 
000242 
000243 
000244 
0003445 
000146 
000147 
000148 
000149 
000159 
000151 
000252 
000133 
000154 
000155 
000156 
000457 
oc015s 
000159 
000160 
000163 
000162 
0001635 
000264 
000165 
000266 
000367 
000158 
000269 
000170 
000372 
000172 
0001375 
600474 
900175 
600176 
000377 
000376 


00 45 1#4,NNLEQ 20540880 


ENL(J)80, 
O00 15 Jei,NNLEQ 80810860 
45 AMCI,J) 2 0, 60340870 
C EVAL, GROUPINGS WHICH CHANGE DURING ITERATION BUT ARE NOT FCETA) 60540880 
40 cS 8 1. / ALPH B08A0S40 
OUMS ® ALPH @ ALPH BO5a0950 
C4 2 BETA @® DUML 80510960 
C7 @ © UECIS) 7 OUML @ UECIS) / 28036.5 B0Sa0979 
CR @ ALPHD @ C5 805410980 
C9 # C4 = CB 80540990 
C90 & ALPH * DUEDGE 80542000 
UKAPSUEDGE 
Cew=-= EVAL COEFSs aM, AND ERRORS POR EDGE BOUN CONDS ano ALPH CONSTRAINYBOBAL640 
G FIRST. COMPUTE UEOGE IF THERE £8 AN ENTROPY LAYER 0341020 
COMMENT enmo+PERFORM TABLE LOOKUP FOR UROGE CWHIEH [8 A FUNCTION OF posaies0 
COMMENTommomF(L,NETA)sESeAND 37). OLFPFERENTIATE TO CGT OURDGE, aNd 80542040 
COMMENT wmmee QI FFERENTIATE AGAIN YO GEY O2UEDG 805421080 
¢ NEXT, BVALUATE NONLINEAR ERRORS 80541080 
45 ENL( 4) 8¢( ALPHOUEDGE@F(2,NETA)) 
ENL(S)89F (202) 
TECKRCL00~2) 43,44,42 
4% ENL(2)8eC(F (2, KAPPA) eCBARCALPHOUKAP) 
AM(2,KAPPAS3) a4, 
AMC 2,1) 9-CBAR@UKAP 
GO TO 43 
42 ENLG2ZI8°F(S,NETA) 
CALL LIADC#L,2,NETAONETA2)9,) 
43 aM64,4)8UE0GE 
AMC 4, MATL) 892 
AM(S,4)04, 
¢ FINALLY, EVAL CONTRIGUTIONS TO aM AND ‘ERRORS FROM OTHER COEFFS 80542140 


Ceace 


46 


4? 
46 


54 


33 
52 


32 


53 
34 


56 
57 


CALL, LIADC #1 NETACL NETACL C90) 
cat) Mi MAJOR 00 LOOP FOR EVAL OF CORFFS AND ERRORS AT EaCK ETA 80941290 
Ka H 8 


900 
eae aT MEF CZEIT¢A)) 
00 49 Jax,NETA 
HES 9864, 1990, w yer cast yecrercay ty 
HPOG(2,$)oF (2,1 eC 7OF (501) 
LFCKRG7)) 47,47,46 
Cab STATE 
GO TO 48 
CALL EQUILCKQG,HCS) PECTS,IT)) 
PC f~-1) 50,930,594 
{P(NSPMS) 99,83,53 
00 $2 Kei, NOPMS 
00 34 KKed,NSP 
OLPK(KsKK) @ ACKKO2, Ke2) 
OTKW(K)s OTK(K) 
00 32 KkKed,NSP 
OLPH(KK)# A£CKKO2,4) 
VUNKWeVLNK( TSU) 
Towa tC( $Su) 
HCWAL ® HHCSSUD/WYME BU 201 ,8 
OTHNSOTH 
RHOP( 1) #ORHOKaHP 
TECHGPML) 56,38,56 
BO 57 Ked,NSPM¢ , 
RNOP( 1) @RHOP( } )+DAHOK(K ) @8P(2,3,K) 
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Hie 








So 





900179 
000180 
000144 
000182 
000183 
000154 
000485 
000186 
300187 
000188 
000189 
600190 
000191 
000192 
000193 
000194 
000195 
000196 
000197 
000196 
000199 
000260 
009203 
000202 
000203 
ocn204 
oF 205 
600206 
000207 
000208 
000209 
000210 
ocozi14 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000223 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000238 


58 


49 


59 


$5 


60 


C---- 


60 
45 


90 
95 


Croce 


100 


105 
110 
415 


420 


oe ema BRT ey ae paeeed 


L20 
MaMATLi JO] -MATOJ 


04 49 MMsi, 9 
MehoMaT2y 


0% 49 N8124,453 

Leler 

A'NCM,N) sPREO(L) 

CALL ETIMEFCZEIT(2)) 
1#(KQ(10),G6T.0) CALL TRMBL(2) 
CALL ETINEF(¢ZE1T(3)) 

TTVCsi.0 

09 120 tas ,NETA 

Ls0 

MaMATi Je] -NAT2J 


CN 39 MMai, 
MaMeomMaT2y 


On 59 N#124-153 

Loled 

PREG(L) @aM(MoN) 

a¥(M,N)8Q, 

TEST TO BYPASS COMMANDS THAT CANNOT BE PERFORMED af ETA(1) 
IF (2 - 1) 60,640,558 

CALL IMONE 

TE(KQC9).NE.O) CaLL TRANCR(3) 

{F(KQ(10),6T.0) CALL TRMBL(4) 

COMPUTE STATIC FE-NYHALPY AND ORTERMIRE STATE OF GAS 
C10 8 C7 @ F(2,1) 

C13 2 C7 o F(3,1) 

HP & G(2,1) © F(2.3) © C43 

EVAL, GROUPINGS WHICN ARB UB8G AT I-44 AS WELL AS AT ? 
Call ICOErF 

TF(KQC9),NE.0) CALL TRANCR(2) 

1F(KQ(20),67.0) CALL TRMBL(S) 

1F (3 * 1) 106,80,100 

OLPK, TCW,VLNKW,OLPHe AND Y2 N@EOEO CNLY FOR CARSON PROGLEM 
TF (NGPRL) 95,55,55 

ON 90 Kei,NSPM2 

WALLUCK) 9 CK6(K) 

VJKW(K) 3 CKO(K) 7 C3 

CONTINVYE 

WALL@ ® C32 

@v s €32 / C3 

TPWALL 8 TP 

GOTO 105 

BaCK TO CONSERVATION EQUATIONS 

call TONLY 

1F0KQ¢10).G67.0) CALL TRMBLC3) 

TEC KG(9).NE0O) CALL TRANCR(4) 

TF (KRCLI\) 42062200349 

FORMAT(2¢H ALL THE COEVPICIENTOs(1X1942E10.3)) 
MUTE ROUViS SOLED rORs he IP ASCHER OVeCOEP RY 

IX ae 

CONTINUE 

CALL ETIMEF (ZEIT 4)) 
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a RN 


B0s8 


8058 


80541300 


8058 


80341340 
60542320 
60542320 


86342346 
80841350 
8952370 
86541350 
BO0541860 
B03ai670 


6502480 
805421400 
£0842800 
80541810 
80542820 
805495830 


80542620 
60541630 


B0$41640 
80541650 
BO5at660 


80841670 
8054166) 
80341690 
60541700 
69541710 


wom rk te remicenaterd hom Vitara Aatecncttlet EID, 


wee 





000240 
Je 000244 
000242 
000243 
000244 
0c0e4s 
0007 4 
000247 
onn24a 
000249 
090250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000256 
000259 
090260 
ocd261 
000262 
000263 
oco264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
oone74 
060275 
000276 
000277 
° 000276 
606279 
000280 
000281 
00282 
90263 
00264 
00285 
90286 
900247 
HOG288 
690289 
000290 
000293 
000292 
600293 
000294 
900295 
000296 
000297 
000298 


| 
I 
~ 
& 000239 





125 


130 
135 


140 
145 
170 


175 
480 


190 


200 


230 


234 


235 
240 


Qoaan 


243 
244 
245 
250 


285 


260 


CoeeeeSuRFACE OPTIONS TREATED IN RNLCER WITH REDUCED NONLINEAR SET 


265 


Te (ITS = 4) £23,4125,145 

DO 140 Ke1,NSP 

IF (LEFS(K)) 136,430,140 

TECLEPCK)) 140.140.4355 

EaSE & .05 

SPNEW © ,14 

CONTINUE 

TFCKROL9)) 1705190°470 

CONTINUE 

WRITECKOUT, 175) 

FORMAT( 2X22HDEBUG FNLE»GNLEsSPNLE) 
FARMAT( /2x1P14E10.3/(12X1P10E20,3)) 
WRITE (KOUT. 160) (CENL(3),198¢,NNLEQ) 

ae MAXIMUM ERROR POR EACK CONSERVED GUANTITY 
Me 

MMSMATIJ 

00 200 1t01,NRNL 

GALL ABMAX(MM=2-ENL CM) ENLMC3),2ENLMCT)) 
TENLMCT) & TENLM(S Od 

MsMemM 

MMsMAT2J 

SOLVE REOUCED SET OF EQUATIONS 

IF ¢KR(2),LT.0) RETURN 

SCRUNTCH DEFINED ROWS OF AM MATREX TO THE TOP 
LSKIPSMATI Jed 

Led 


LL20 
00 240 Mey,Natt 


Leet 

IFCLeLEKIP) 235,-230+238 
LSKIPELSKIPeMAT2y 
LLSLLed 

DO 232 Jay,NNL&O 
DQUNL{ Je LL) SAM(Ls J) 
DELGUW(LLD B@ENL (IL? 
Lated 

ENL(MISENL(L) 

00 240 Jet NNLEO 
AM(M, J) SAM( Low) 


THE FOLLOWING ROUTINE REARRANGES COLUMNS OF THE NCW RECTANGULAR 
AM MATRIX, ACCORDING TO LAR, INVERTS¢CAM( Led) odeZeNaM},Tet,NAM) AND 
MULTIPLIES THE INVERSE TIMES THE REMAINING COLUMNS OF AM MATRIX 


AND TIM@S THE ENL, 

GALL STIMEFCZEIT(S)) , 

Cabl RERAY(NAM, AM,NSP + 1,ENL,4,LAR, 1X. 453) 
CALL ETIMERCZELT&(6)) 

DO 243 I84,NAM 

AMC Ls NAM)QAMC 3,4) 

TECKROS7)) 245,265,245 

CONT SNUE 

FORMAY( 2X1P22€10,3) 

WAI TE(KOUT, 255) 

FORMAT(2X23HDEGUG FLE. GLE» SPLE) 
WRITECKOUT, 250) FLE GLE 

TF (NSPMY) 263,265,260 

WRITECKOUT, 250) ( (SPLEC TK) eKadsNSPML), [82 ,MAT2)) 


CALL ETIMEF (ZEST (7)) 


CALL, RNLCER 
CaLl ETSMEFCZETT(8)) 
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80341720 
86541730 
80521740 


80341760 


80541770 
80541850 
60541860 
B05a2870 
80541880 
B0541690 


80842070 


80542090 
80542100 
B0Sa2110 


804421350 
B08a2140 


80542180 
80542250 
80842260 
6082270 
80842260 


80542296 


80542310 
86542320 
80542330 
80542340 
60842330 
80342360 
B0S42370 


000299 
000300 
000301 
0n0302 
000303 
000304 
000305 
000306 
006307 
6CO30R 
0c0309 
0c0310 
000314 
000512 
000313 
000314 
000315 
000316 
000337 
000318 
000329 
000320 
090321 
000322 
060323 
000324 
ocv325 
000326 
000327 
000328 
000329 
000336 
000334 
000332 
000333 
09n334 
090335 
000336 
000337 
000338 
000339 
000340 
000344 
000342 
060343 
000344 
060345 
000346 
000347 
000348 
000349 
000350 
600351 
000352 
0c0353 
000354 
000355 
000356 
000357 
000358 





c 
c 


C 


Cre--=RECYCLE IF ALPH WANTS TO GO NEGATIVE 


DETERMINE MAXIMUM NONLINEAR ERRORS 


EQUIVALENCE ENLM TO FNLEMs GNLEMs AND SPNLEM 


595 D9 605 fe3;,NRNL 


TFC ABSCENLM( 1) )-ABS(DRNL(T))) $00,605,608 


600 ENLM(3) s DRALCT) 
ITENLMCL) 2 ft ‘ 
605 CONTINUE 
ENLM( 1) sENLM( 4 20, 
ENLM(2)8ENLM(2)/2000, 
CALL ABMAX(NRNL J ENLMs ENLMM, INLMM) 
ENLMMSENLMM/10, 
ENLM(L)SENLM(1)/10, 
ENLM(2) sENLM(2)01000, 
ELMM @ ABS(ELMM) 
BIP e KIP 
ENLMM & ABS(CENLMM) © 3, © BFP 


EVALUATE NONLINEAR CORRECTIONS PROM THE REDUCED SET 


09 615 181,NAM 
L & LARC) 
OVNL¢L) & ENLCS) 
00 645 Ksi.NRNL 
J® K © Nam 


615 OVNL¢L) & DVNLCL) © ORNLCK) © AMC Ee) 


O00 620 Ksi,NRAL 
1 2 NAM + K 
Js LARC!) 
620 OVNLCJ) & ORNL(K) 


TECOVNL(2)*0.9@ALPH) 626,626,629 
626 DELQUW(4)80. 
Of 627 Ket,NSPMi 
WALLUCK aVJKY(K 0CS 
627 DELGUW( Kes) 20, 
LIMMNAMeS 
DO 628 t#2eNNLEQ 
OUM@eaM( 3 ,NAM)/AM(4 NAM) 
ENL(¢$) S@NL(T)@ENL C3) ODUM 
Of 628 JeLIM,NNLEQ 
628 AMCE J SAMNC TJ) ~DUM@AM’ i,d) 
EM. (4983, 
DO 634 JslLIM,NNLEG 
634 aM(4,J280, 
1788[ 78s, 
€a8G20,2 
TPCITS9$4) 244,244,850 
629 CONTINUE 


Go~---EVALUATE LINEAR CORRECTIONS 


OO 630 te1,MaTil 
DO 630 Jai »MaTiu 


63C FLECT) # FLECS) © DVYNL(J) @ Badet,J) 


Ju @ Mafay 
00 635 Jat »MaT2u 
JJ a WJ od 
00 635 te1,4aT2t 


635 GLECT) © GLECS) = DVNL (UJ) © BA2( Ted) 


CORARCLIBDVNL (29 /ALPHOO 3S 
LeN&Ta 

JaMATive2 

DO 640 fe2,NETA 

CORAR( 1) 8OVNL¢(Y)720000, 
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60514016 
80844020 


@NEW 
Obed 


oNEW 
BO5A426000ng 


60544180 
603041290 
A0544200 
80304210 
80844220 
60344230 
80504240 
80544250 
80544260 
80544270 
80844280 


60544300 
805443510 
80544320 
80544330 
80544340 
80544350 
80514360 
60544370 
60544380 


kh ae eae ceric salah maT aerate tlle aa a ial a Sele hotness Alia MOI. Rena dine i aco a i in ch ch Wile eb a thea Se 


AO PAROS ade le ei a Te te lana Raa 


Seika tells a: ok <a cic ee eae: 


a es wee 


ie 


So. Sailer GS 


9s Sead ais © a a: 
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AJ 
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ee ene ep eR ERT AE TT EE BE 
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te REN ns 
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000359 
000366 
000361 
000362 
000363 
000364 
000365 
000366 
000367 
000368 
000369 
000370 
000374 
000372 
000373 
060374 
000375 
000376 
000377 
000374 
000379 
0003890 
000382 
000382 
000343 
000364 
090385 
000386 
000357 
000388 
000389 
000390 
000391 
000392 
000395 
000394 
000395 
090396 
000397 
000396 
000399 
900400 
0004Ci 
000402 
000403 
000404 
000405 
900406 
000407 
000408 
000409 
000410 
000411 
000412 
000413 
000414 
000415 
000416 
000417 
000428 


640 JaJeoL 


IF (NSPM1) 665.4665,648 


645 00 640 K2i,NSPML 


00 680 Jat »MaT2U 
JJ a dt oi 
DO 650 1e2.MaT2i 


650 SPLECT,K) 8 SPLE(T»K) = DVAL( UJ) © Ba2tlod) 


655 
660 


JaMATLJeKeMaT2ge2 
Of 685 te2sNETA 

® #1 
CORAR(L) @NVNL OJ) 
Jadot 
CONTINUE 


665 CONTINUE 


670 
672 


675 
674 
675 


680 
685 


690 
695 


696 


700 
705 


710 
715 


720 
725 
730 


735 
740 


743 
730 


IFC EASE-0,2) 673,670,670 

TF CO, 3S34CORAR(ICORMI/CGRMA) 673,675,673 

BIIMPSBUMPe2.0 

GO TO 675 

1F(ABS(1,0°CORAR( ICORM)/CORMA) $0.25) 674,674,678 

BUMP sBUMP/2, 

CALL ABMAX(L, CORAR,CORMA, ICORM) 

IF (KR($7)) 660,680,685 

IF CKR6$9)) 690,703,699 

CONTINUE 

KRI87) @ KRIG7) @ £ 

CONTINUE 

FORMAT(2X38HDEBUG CORRECTIONS RNL,NL»&L AND GL, SPL) 

Cab ETIMEFCZEST(9)) 

WRITECKOUT, 696) ZEST 

FORMAT(SX33HTIMES BEFOR AND AFTER . . » » + 046% YNCHEMISTRYOK 
2 LSHERRORSOMATRIXOXOHINVERS {ONS 2X6MRNLCERSLXSHNOW/S0F 10,4) 
WRITECKOUT, 695) 

WRITECKQUT, 230 ORNL 

WRITECKOUT, 250 OVAL 

WRITECKOUT, 250 )FLE GLE 

IF (NSPMZ) 705,705,700 

WAI TE( COUT, 250) ¢ (SPLE( I,K) Kod sN@OMZ), 382 .MAT2}) 

CONTINUE 

CORRECT PRIMARY VARlasLés 

DUN s .05 / BUMP 
EASR@AMING (4. SOEAGEs 1.0. 
TPCTY8.8Q,2) BUMPSAMAXS ¢ 
TF CKRCLS)) 720.720.7258 
OUM @ KR(43) 

EaSS © AMINS(OUM / 40,,848E) 
1F (EASE - £.0) 725,740,740 
00 739 {04,313 

FLECL) ® FLE(!) @ EASE 

00 735 $94,153 

OVNL(T) & OVNL(T) © EASE 
CONTINYE 

PIEASE # PIEASE @ (3%, ~ EAGE) 
tf <TFZ) 745,750,750 

TFZ # EASE ® DTEMP = TFZ 
NUL@0 

00 790 fe%,NETA 

NISNETAS] 

N2TeNETAONS <2 
F(2,1)8P (2,1) ¢DVNL (043) 
FC4,1)8F (4,2) +FLE (NOT) 


DUM/ABS(COAMA' 
BUMP, ,62/aB8¢ CORMA)) 
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60804432 
305444660 
805146450 
80514460 
85344470 
909404480 


80524910 
80844520 


B0544340 
60314530 


80544560 
80549590 
60344600 
60544610 
B0544620 
80544630 
80514640 


60544650 
80544660 
60924670 
BO8A4600 
80544690 
80544700 
60548740 
60534720 
86544730 


anew 
80544750 
80544760 
80844770 
80544730 
90544790 
83544600 
80804810 
80544620 
60944830 
80514840 
80544850 
B05A4660 
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ee on ene 


000429 
000426 
000421 
000422 
800423 
oc0426 
000428 
000423 
600427 
000428 
000429 
000430 
000431 
000452 
000433 
000434 
600435 
000436 
000437 
000436 
000439 
000440 
600441 
600442 
000443 
000444 
0004645 
000446 
000447 
000446 
G00449 


760 


765 
770 


773 


772 
773 


173 
740 


745 
790 


640 
84a 


e50 


IFC Led) 760.760.7658 

FCL,i.0P 01.1) ¢ DVNLC2) 
FCSeL22RC 3,2 TVNL (3) 

69 TO 770 

FL LIS FCie TFL ECT os) 

SC3,L PCS, LT OFLECNT @2) 
LPITeMATI Ves+es 

00 765 KeNULNSPMY 

LEC LONETA) 77257745972 

SPL, To Ri eBPC 15! KIOSPLEC IK) 
GO 70 773 

GP64 020%) SPC 1.3 oKIOCDVALC LPS ) 
GOCS. 1K OSPC 3,7 KIOBPLECNE KS 
THC Tek) 77527°%, 780 

GPC 2,10%)8 SPC2.20K) © OVNLILP Tod) 
GO TO 788 

8P(2, 20K) CGPC 2,8 KICEPLEC! OK) 
LPteLPiomat2y 

CONTINUE 

ALPHe ALPHeDVNL (49) 

If (ITS © 49) 650,840,680 

1& C1777 © 779) 645.850.8068 
1777 8 779 

176 s 30 

CONTINUZ 

1€(KO(46),6T.°%) RETURN 


RETHMOBeCSORHOE( 18) USCIS IOCF(S NEVA) @F 6200 2°XN15) SALEM) 


SRCRETHAO.GT.RETR) KO(Z0)e040 
JECRETHMC, LT. RETR) KO( 36) 808 
RETURN 

END 
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603aS300 
80845340 
80548320 
80348330 
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00525380 
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c. Flow Chart 


ic 
SUBROUTINENONCER 
ERSERMINLCERSE C2 .. 1.03 


IFCITS-L> 11,5,11 


5 EASE = .9383 
SPHEN = 0. 
BUMP = 1.0 


IFCITEMFIS-2> 3.3.2 ' 
Gm! 


2 IFCWDOT) 4.3.3 
3 WOOT=-.12/Ci 


$ PIERSE*1. 
ICORH = 1 
CORMA = 1.£ + 10 
TF2 = 0. 


IF CKRSCIS)) 8.8.7 


IFCKRCSD-2> 11.10.38 


$ FLUXJ¢3. 38. 1T)e-1. 


10 IsP=t7Z4+1 
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wearin ees, 


SPRL Mia Rata ernie EOE IM Elif pete 





nd Tonge 


IFCKRES9-2) 11.11.16 
a 


16 HPB=HPYGCKK) 
EMISC@EMIVCKK> 
HCARB=HCHAR (KK> 


iO ie Jel6P Nai 


JFCMORCU>-ASUCKK)) 12.12.12 


19 IFCHOSCU>-BSUCKK)> 12, 14,12 


I 


UATE COEFFICIENTS RYO ERRORS FOR NONLINEAR EQUATIONS 
ENITIRA Ize Fat MATRIX 


| ENLCT)#0, 
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00 15 Ji, HNLEQ 


| 80 TO 43 


42 ENLC2)=-F C8, RETA 
CALL LIADC~1.2.NETRHNETR-2.1.) 















4 





3 RMCY. 1) =sLEDGE 
Fee AT Io==1 


401 
c Eure nl ear ioe RAND ERRORS FROH OTHER COEFFS 
C---~ RBC) =e MAJOR DO LOCP FOR EVAL OF COEFFS ARNO ERRORS AT EACH ETA 
kgcs 
CALL ETIMER (ZEIT(LD> 
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IFCKRC79) 97.47.96 





4? CALL EQUILCKO.HCID PECIS.IT>> 


48 IF¢CI-1) 50.50.54 


$0 IFCNSPML) 53.83.51 







OO 31 KKel.NSP 





21 DLPKCK.KK> © RCKK+2. K+e> 





52 DOTKWCK)= DTKCK? 


69 82 KKei.NSP 
$2 DLPHCKK>= ACKK+2, 1D 


VLUNKW=VLNKC TSU) 
THeTC¢ ISU 
HCHAL = HHCISUD/WTMCISUDeL .8 


53 OTH4DTH 


| 54 RHOPCT)=DRKOHeHP 
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IF<NSPKL> 58.58.55 






SY RHOPCT )#RHOPCI D4+DRHOK (K>@8P C2, I,K 


58 Let 
M=HAT1U+1~HAT2U 
DO 49 HHe=L, 8 





Lad 
MeMAT1U+I-HAT2U 


0O 59 Hrtel, 8 


Renate d 


DO 82 t=ic0. 153 
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58 00 SP Kei. NSPHL 
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L=L+1 
PREQCL ) =PHCH, ND 







¢ 
a. ey 


59 AMCH, N20. 







Cc TEST TO BYPASS COMMANDS THAT CANNOT BE PERFORMED AT ETACI> 







IF CI ~ 1) 60.60.55 





66 CALL IONE 
IECKOCS>.NE_0> CALL TRRRCRC3 \ 


S GeTeRMINE STATE OF ERS 










GH ARE USED AT I-L AS WELL AS AT I 







> CALL TRKBL<3> 










IF CI = 1) 1vd,80. 100 


C DLPK. TCH. VLNKH.OLPH, AND Y1 NEEDED O'S FOR CARGON PROBLEM 


80 IF CNSPH1> 96.95.85 
7 


@5 00 SO Kel. HSPHL 


WALLUSK) 2 CKE CK) 
VJKHCK) = CKECK) / CS 


etc eames 
a RA DLR 









$0 CONTINUE 





| $5 HALLO = C32 
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100 CALL IOALY 
IECKQ¢10>.8T 
IF CKGCS > NE. 


115 * oy See ed aa 
ae 


28 CONTINUE 

CALL ETIMEFCZEITC8 D> 

IF CITS — 1) 125.125.1845 
125 00 140 KeL.NSP 

IF CLEFSCK>) 130.130. 140 


180 IFCLEFCK>> 160, 140, 186 
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| 105 JFCKRCI9>) 170.190. i?0 


170 
g PRTESKOUT: 1f5> 
: FORMAT (2X2 1KDEBUS FNLE. SNLE. SPHLE> 
tf} FOREN (/2XIPLIEL, B/SLENIPIOE ND. 27) 
WRITE (KOUT. 1 CENLCTD. NNLEQ) 


bad 


SEEK Man ERROR FOR ERCH CGOHSERVED QUANTITY 
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SET OF EQUATIONS 
202 RETURN 
Pee en eee ne eee 


(wwe ete 








He Anan one 


DO 231 J#i.NHLEG 





231 DOUNLCU.LLOSAMCL. J? 


¥ 


TFOL-LSKIPD 235.090.835 eae 
750 LOXIP=LSKIPOMATON 
CLeLL+i 
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258 ENLCMoENLCLD 
DO 240 Jel RRLEO 
200 RNCM. J aAMCL. JD 
RERRRANSES COLUMNS 
LAR. INVERTS(CRMCI. J 
TIMES THE REMAINING 
F 
«seid 
| 244 IFCKRCITD) 265.265.2485 
5 248 CONTINUE 
_ 250 FORMAT (2XIP11E10.$> 
WATTECKOUT.855) 
256 FORMAT (2X1@HOEBUG FLE. Gi... SPLED 
WRITECKOUT. 250 FLE. GLE 
t TF <NSPHI) 265.265.2650 
i Hi = 
280 WATTECKOUT. 250 )<(OPLECI-K)-Kel, NSPH1), I=L, MATE) 
af C94980S5URFRCE OPTIONS TREATED IN RMLCER + ITH REDUCED NONLINEAR SET { 
' : 
} 285 CALL ETIMEFCZEITCTD> 
r RNLCER 
é CALL ETIMEF (ZEIT(8>> 
C —sCDETERNIKE HAXIMUM NONLINEAR ERRORS 
Cc EQUIVALENCE ENLM TO FNLEH. GHLEM. AND SPHLEK | 5 
| Q 
é 586 DO GOS T=t. WRAL 
es | 
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Le ee ne ene ete, al 600.605.605 


800 a. = oe? re 
TERLMCT 


ENLMM = RQSCENLKM> + 3. + BIP 
EVALUATE NONLINEAR CORRECTIONS FROM THE REDUCED SET 
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L = LARC 
OVNLCL) = ENLCID 


DO 615 Kel. NRAL 
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J=°K + NAH 


S16 DVNLCL) = OVNLCL) ~ DRNUCKD © AMCT. J? 
DO 820 Kel. NANL 
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IF (DYNL (1340 S*ALPHD 626,626.625 







S26 DELQUN(1>=0. 


OO 627 K=1.NSPH1 








WALLY CK eVIKW CKD O08 





G2P DELQUNCK+1L>=0. 


LIM=NAM+1 


00 628 I=2.NHLEO 






00 828 J=LIM. NNLEQ 


A A Rc ee a ee ee mem te Matte 
f 628 AMCT. JeAMCI. J>-DUMPAMC1. JD | 


ENMLCL@0. 








00 §31 JeLIM. NNLEQ 


G31 AMCX.J>80. 






1TS#ITS+41 
ERSE#0 .2 





IFCITS-51> 264.246.9350 





q 


| 


cost 


+ 


de 


a 
> 


? 


So 


wh 


Sa 


AFWL-TR-69-114, Vol. Ir 


e 





oe 











629 CONTINUC 
C-—-—-EVALUATE LINEAR CORRECTIONS 


DO 630 I=f.HATLI 


00 8630 J=L MATL 


= 630 FLECID = FLE<I> - DYHLCJ) @ BALCI.JS> 


JJ @ MATId 
00 &35 J=L.MAT£U 
00 835 I=1,KAT2I 
635 GLECID = GLECI> - DVNLtUu> @ BAZCT. JD 


CoRR CL EDYNLCL/RLPHSO 5 
UeMFIT1U+2 


Do 840 t=o.N 
ORPRC TS @OYNLCJ9/ 10000. 
G40 JedtL 


IF CNSPH1> 665, 665.645 
845 DO 660 K=ei.NSPH1 
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eee ty PSone td He 22 natal oboe MOLAR vaaRiansueRs Jou GDI a Rn ee hE 


‘iF TALL ABHAX<L. CORAR. CORMA. ICORM) 
| IF <KRCIT>> 660.680.6085 


90 IF CKR(L8>> 680,705,630 







en. 





S88 CONTINUE 
KRC17) = KRCL72 - 1 


eS GerOR FIER . ./6X SHCHEMISTRYSX 
TNOXOHTNVERSTONTSXGHRNLCERI AXSHNOW/ 10F 10.4) 








ae eee 


= “TF CNSPHI> 705. 105.709 


oO —-—___.___——.- 
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Cee] 
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| 700 WRITECKOUT,250><(SPLECI.K>- Kei, NSPML>, vl Mater) | 


705 CONTIN 
CARRECT a a VARIABLES 


EROESRMIRAC I 5EASE. 1.0. 0UM/RBS(CORKA>> 
IFCITS £8.27) BUHP=RHAXLCBUMP. 02 //ABSCCORHA; > 


| 710 IF <KRCLSD> 720.720. 715 


715 DUM = KR<13> 
RMINICDUH / 10..EASED 
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725 DO 730 I#1.313 


00 738 I=1.153 





0 CONTINUE 
PIERSE © PIERSE @ (1. - FASED 





pes cer ee ma in salt CTFZ2> 745.750.7560 


145 Tre = ERSe + OTEMP - TF2Z 


1§0 NiA=O 


Te oenatnnanammnanmatmeneanthnentenasteshemmasnanienatiad 





760 FCLteFCi.1> + DYNLCE> Npilge tet iky 
(3. 18F C3. 140VNU C2? 


& TO 770 
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00 785 K=NUL. NSPHL 


IFCI“NETAD TP2.77L.772 
yy 


7Pi SPC1. 1, K>=SPC1, 1. K+SPLECL KD 


60 TO 772 


77P SPC. LaSPCL LK SDNLLPD 


77a SPC3. 7.0 aSPC3. 1, KI+SPLE CNT. KD 





TFCI-1) 778. 775.780 


YP6 SPC2,1, Ke SPC2.4,.K> + DYNLCLPI-L> 





780 SPC2.1,KseSPCz. 1, K+SPLECTK> 


705 LPIOUPI+MATeJ 


— 


730 CONTINUE 


ALPH=ALPH+DYHL C1 > 


TF CITS - 89> 959.860.9850 


evo IF CIv7? - 777> 845.650.9865 





-43- 


c- ~~ -@ 000 


Se eg gee | 


Rare acon geen 


ne SEN lithe AL bOAE BOING ect AANA fol ROUT Hn AST RORIEONE He otgpnitodl 





ASA Beat Si a he; aad Htc file rats Sg Bes 





Ren atthe a tc, 





Neer as ees we ae ee 





-44- 





eS itvr © rrr 
178 = 39 


AFWL~TR-69-114, Vol. II 


; 


eatin ethene Bhp Sasi esate enfant emcee den Pitan 

eae Beg 2 » t 4 S ° titi Anita siete econ Pe ge ee Aarihied siete 

; % eo a : ea. 7 s Eee : fi 8 oS = f ees wer =p Ee Sepia niak panache taint ich eho bah akin M tie ntact wt ae - = 
“at ! 4 , a ey Be fy 


> 2 zy = ox 
% OO ne meee > ss boa < 
Fy 


AFWL-TR-69-114, Vol. II 


5. SUBROUTINE RNLCER - BOSC 
a. Function 


Further reduces nonlinear equations to reduced nonlinear set of wall } 
‘ variables. Introduces wall boundary conditions and solves for new values of 
this set. Called by NONCER. Calls RERAY. 
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ocoovs 
ocnor? 
eranc3 
Ocoot 4 
acoors 
ococlts 
9coous 
onnore 
ocagis 
ocooi0 
o00ci1 
OFOCls 
nennis 
orogia 
neoras 
orvoria 
oroel) 
ocacie 
Ocv019 
oonoen 
OC0021 
Or0022 
000023 
oroo2s 
0°0025 
0c0026 
ocoa?? 
orcne2a 
000029 
onnoso 
on00s1 
000032 
0c0053 
000034 
000055 
ornoss 
onnns? 
000038 
000039 
000040 
ocoo43 
ocon42 
000043 
eco044 
oran4s 
ocon46 
ocda4? 
ocoose 
orng4s 
000050 
ooannsy 
060032 
acooos 
actos 
000055 
0c00>6 
0c0047 
ooncde 


b. iiating 
C Pnsc 
SthIOUTLUE RNLCER 
PIHENSTOMCGUR ULC 7151) BO5C 
DIMENSIOWWELG 449 eDAYNLC153,1) ,WALLQsC1) BO5¢ 
COMNON/BLACOMs “OAC 74), MORE 71),NSPECOFR( 74,15).W(3),LEF CLO) B03¢ 
1,LEPS(19), PIE ASE LEFW(10) BOSC 


CUMNANs ANY COM RUMP, CORMA, FASE, ICORM» WOOT, TF2,1777 -DTEMP,KIP> 1xB05C 
CUINON/ CRACOM/HCARB EMIS, STFF .ANUMs BDUMs COUMHTEF »HMAT/EMIS2 EMISTBOSC 


1, PG, ASUC3)» ASUC3) HPYG(S) HCHAR( 3) ,EMPV(S) -KS(40),1SU 605c 
CONMGN/EDGCOM/ PEC 40, £),PTE(40+ 1)-SPE( 8-40, $),0UES, B05C 
1UF (40) RHOE C40) sVMUE( 40), TEC EN) UENCE. QUEDGE »DQUENG» VMWE. XE »C90 B05¢ 
> ,NSIPC4O2- 1OSIP,TTVC, TVCC( 40) BOSC 


CAMMON/EPSCOM/ELCON? YAP eCLNUM, SCT, PRT RED OVS »RHOVS PL PIM DCL. B05¢ 
JEOSACL9) -EPSY ELC15) NPE(1502) MLI C153) DEPS(153) DEPC, TREF »RETR Bosc. 
COPMONJEQPCONZ RAC 74,2) RCO 7422),ROC 7422)cREC 7242) ,RF( 71422), 808C 
1 TUC FLe2)eFRC TLI0FR AS TFCE 742, 4TAC10)  ATBC 10) ATC(L0) WAT(10), BOSC 
ZMATCAO) FREAD) oLZeKZCLOILAMEC 712 PoZeTKCLO, 7IVVNC 72) BO05C 
3 VNUC 74,40), STEFF eKR2,HCHANCV »WHOWTMC 7LIYYY( 7LI0YWC 7290666 714)B805C 
4 ,TQ¢40, 7),EPOVRK, SIGMA, BASMOL BOSC 
COMMON/EQTCOM/SIP HIP, EEL EENL sFLIG, CAF. IRE. JER Ade SITS, IN, IL, FIT, B05C 


4 NODE» HMELT.» SMELT» THAX, TIN» MELT» SUMN, SUML» WS, WSS.OX, 16P2. 1SPQ> BOSC 
2 1SP,KKJ, SVA,SVB,SVC+SV0,SUMC FFE CMF EP RVs IFCUCWTG NTL» JC HHG, B05C 
3 CCPC, TTMIN, TTMAX L2eL3, 18642) E8610) EBL020).A016.96) B86 16), BO5C 
@ TPC 74), ALPC10)FNUCIO)  GAMHC 10), GAMF C10) /SLAM(10) »DY( 72) AVE, BOSC 
5 CPC 72) oHHC 7290SBC 74), TCE TLIOVLENK( 7420EC 72) ePNUSC10)> 805C. 
6 ACCIM) BLNKL 10), BYC10)e BC(A0), BECLO) dz 4) BOSC 
COMMON/ERRCOM/FLE( 43),GLEC30)/SPLE(30, 8)+1,A0343).FLEM,GLEM Bosc 
1,SPLEM( B),ELM(14) ELMM) TELM, IGL™, ISPLM( 8) eNELMy LLMMsDFL( 43) BOSC 
2,9GL (50) +MSPL(30, 6) FNLECLA) GNLE( SS) ,SPNLE(S5, 8),ENL(453) BOSC 
3,ENLEM»GNLEM,SPNLEM( 8), ENLMM, TENLM,IGNLM, TSPNLN( 8) BOSC 
4, "ENUM, fNLMM,OFNL (18) .DGNL¢15) OSPNLG25¢ 8)/ORNL(10) BOSC 
CAMHON/ETACOM/ETA(15) OETACL5) NSQ(14) DCUCL4) 81024) 82024) BOSC 
1,LAR(153),841043,18),842(50,15) BO3C 
CAMMON/FLXCOM/DELOW DELUH( 8), DONL(153)OUNL(153, 8) WALLO BOSC 
L,VALLIC 82. OW,VIKW( 9), TPWALL Bcs¢ 


CAMMONWESCOM/C4,C2+C3064e ALPHD, BETA, 2M0 4124) 12664414) 1 Z5P 64,14, agosc 
4 ¥0X1640), HF (15.5) 0HG018,3) HSPCL8,3, 6), HALPH, HUE, HHUE » HF, DLX2 605C 
2,C3( 4G) BETAM( 40) 805C 

COMMON/ INTCOM, KR(20) KIN, KOUT MATSE MATE MATIN, MAT2JeNETA, 1, IS, NBOSE 
1S, 1T,NTIME,NSP,NSPMS NAM, NLEG,NNLEQ, NRNL, 178, KAPPA, CBAR,CASE(35) B05C 


2,R08)3 MWE sNONDKQ( 20), STEMSNT TEM, KAS?» NAT, NBT2, JOENT,KRO( 40) BOSC 
3, KAUXO+ JTIMEs ISPEC MDC 3) BOSC 
COMMON/NONCOM/ AM( 153,155) OVNL (133) TW S805¢ 
AVLNKWrOLPHC 9),OLPKE A, 9), OTKW,DTKK( 6), FLUXJBC 9) g05C 


COMMON/PRMCOM/TIME( $0), PRE(40) ,PYET( 50),GE( 50).8(40),ROKAP(40) BOSC 
1, SNOSE» VKAP»NDISC, 1D1SC640) NSD(30) MEDCL0) I TFC $0),3PRE,RADNO, 805C 
2CONE p»RADFL( 50) RAOR( 40), R408 40), 1Ral Bosc 

COMMON/PRPCOM/PR(15),7(18) RHOCTS) -SC( 29) CAPC( 25) ,GR(15) HO15) BOSC 
1,CPBAR(15),VMW(15) PHIK{15, 8), DRHOW,ARHOK( 8),ZK¢ 6),0Z2KH( 8)» NBOSC 
2mr3K( BY MHUIAKE AY NTKC 8), OPM] KH( 8), OPRK( 8),0SCK( 8) »DCAPCK( 8sB05C 
3, PHTSLKC 8) /DARK( 8), 9CPAK( 8),NCPTK( 6),0MUL2K( &),0ZKK( 8, 8) go5sc 
4,SPHIRKK( &, 8), DMU4H, DMUSH» AHTILHs VMUL2,CT, CTR CPTIL MTIL B05¢ 
5, VMU5, DTH, DCAPCH, DPRH + DSCH,0G9H, OCPBH, DCPTH» OMUL2H, VMU(15) > RKOP B05¢ 
6(19) »PHIKP(45),HP,TP,ZKPC 8), VMU3P.VMU4P,HTILP, CRHO( 14) GMRI 18) BOSC 


C1™MON/ TEMCOM/SPDUM( 8) MERCED) -9UMM4 (15) SLOPE( 15) REOUM (15) BOSC 
1, SDM 640), SDUMZ (40) ,-FWHDUNC 40) XT CON( 40), FWCON( 40) PWINIT( 1) aos¢ 
Z2,YTINITC 3),0UDS( 40) B05C 

COMMON/VARCOM/F (451592603635), 8703095, 9), 4LPH goat 
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oonnsy 
00006C 
690061 
0000s: 
000663 
OCO0K6 
orooes 
000066 
000067 
OCOnFe 
OCNNneY 
ocou/o 
0n0071 
060072 
ocon73 
ooon7¢ 
0c0075 
000076 
o¢n07/ 
000078 
0c0079 
ocoosKo 
oo008s 
Oconhs 
onogss 
OC90K6 
OnOOKS 
ocnonke 
Ovd0K? 
ocngua 
CO0CK9 
oco04v0 
OC0092 
0C009Z 
000095 
000094 
000095 
000096 
000097 
ocu098 
oon0y9 
000100 
000101 
900102 
9601035 
oss 
900105 
0c01C6 
000107 
000108 
000109 
000110 
000111 
ornii12 
oen115 
ocoiis 
000115 
000116 
ooni17 
oco1i8 


aa 


270 
275 


277 
278 


25 
296 


299 


310 
315 
320 
325 


330 
335 
340 
345 
346 
347 
348 
349 
350 
354 
352 


359 
346 


CPMON/WALCIM/EW( 40, 1)4TH(40, 2),HW(40, 2)°SPWC 6,40, 2) Bosc 36 
4, 9MOVNC 4, L)PFLUXIC 3,640, 1) e SMW, STW, PF Ws SPW, TRHOVW, TFLUXY 60se 57 
EQUIVALENCE (CEL Gm» DELQUW) » (DGHLOGUNL)» (WALLG.WALLOQU) 86940380 
DINE US TONCURAR( 1) 80520470 
EQITVALE VCE(CORAR(1),AM(4)) 60540486 
FQUILVALENCES aM, NGURAL ) 803404690 


EVALUATES REDUCED SET OF OGNL 4ND DUNL. NOTE...OGNL, FOLLOKED BY 80$42390 
BYNL IS EQUIVALENCEO TO DGJNL FOR CONVENTENCE OF FOLLOWING LOOP, B05az400 
aLSO, THE Re CCFC SET OGURNL 1S EQUIV, TO AM(1) FOR STORAGE ECON, 609424640 


1 275 TsieNRNL 80542420 

ye f + JAM 80542430 

Lt L4ant%) 80822640 

H- 275 Kei, ISP 80542090 
NAVRNLO1,K) & OGINECLK?) 80542460 

O° 275 Js1,NaM 60242670 

JJ 3 LARC) 80942460 

IF (1 © 2) 275,270,275 60942490 
NELQUWEK) = DELGUW(K) @ DQINL(Ju:%) @ ENLC J) 60542300 
NAIRUL( TK) = NAYRNLGT AK) © NANKEFSIaK) © AMC eM) 60942510 
RHOVS 2 Ci © FCLeL) © HFCL5) 80942520 
1E5KR(92-2) 3145,2852277 ONEW 
NA 278 Ket NSP oNEW 
WALLGUCK) @WALLGU(K YODELOUW(K) @NEW 
69 TO 345 eNEW 
yA 290 L21.3 20502550000, 
WL) & FLUXICL, 18257) 80522560 
PREPARE OGJURNL AND WALLGY FOR SURFACE MASS BALANCE 80542570 
wtUM 8 d(t) © W(2) * WES) 80502560 

00 3149 K22,NSP 80542590 
wALbLu(K = 1) @ WALLUCK © 1) + DELAUW(K) 66542300 
RAVRAL(4.K) 3 OGYRNL (LK) / C8 60542640 
wabLUCK ~ 4) 8 WALLUCK © 9) = OQJRNL(a,K) @ RHOVE © DQJRNL(2,K) © 60982670 
16¢2,1) 60542680 

0 340 KKs3,NRAL 60542670 
HALLUCK © 1) 8 WALLUCK © 2) = OGURNLCKK«K) © SPC Le2,KK = 2) 80542700 

IF (KR(L6) © £) 3493340;320 80542740 

JE CKRCL7)) 340,340,335 60942720 
FORMAT(82R DEBUG D@JRNL(NRNL,NSP) BY ROWS, DELGW(5) WALL OU(S)/ 80542730 
4 (8X2P10E10,3)) 80542740 
EARMAT(S5H DEBUG DOYNLCNNLEQG,NSP) ROW BY ROW /(8X1P10E10,5)) 80542750 
aRSTECKOUT, 330) ( (OGUNL($,K) «Ked NSP), tsi, NNLEQ) 80942760 
WALTECKOUT, 325) (CDQURNL CT 2K), Kad ,NSP), 284, NRNL) DELGW,OELUW, WALLG,B0942770 
Twablu 80542780 

1x ae 2 80542790 
CONTINUE 69842800 


JECKIP) 346.346.3575 

LE CKR(9)=2) 347,355.595 

ARNL LP BEw CIS, TTF C104) 

AINL(2)50, 

TECNSPMNL) 350,350,348 

CA 349 Kei NSPmi 

LANL (K+?) BSPW(K, TS TT) -SPC Ld K) 

CINL (2) BDRNL( 2) ORNL (K02) @OTKH CK) 

PECKR(GL)) 391,351,352 7 
PANEL C2ECTHOTS) TT IA“T(4 ORNL (2) /OTHW 


69 TO §95 

OTNL (2) srw (IS, PT) -GC1,4) 

¢ 9 £95 

Tr CKROAL) - 1) 375-365.360 60542830 
ge CHRCOLL) = 3) 370,375,370 80502840 
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nm 
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Py 
0c04349 365 KA(L) *® 2 60512650 
900120 ORAL (2. SHWCI6,17)—G6(1.14) 
000121 HIPMCGC1,1 PEASE OCHWO IS) f7)9669529997108 
oony22 GO YO 380 
000123 370 KACL)92 
00042¢ 1F(7(1)~4000.) 374,374,372 
000125 372 1F (EAGE-SPNEW) 374,374,380 7 
003126 374 TwCUS TP) eAMAXL(762)-4500,) 
000127 379 TcLpeT(L) EASES (TW( 3S, 57) T7119) 
000120 KIPOMAXO(KIP*i,0) 
000129 376 KA01)80 
000130 360 KQ(6) & 2 BO$a2910 
000234 SPNEWSC, 
000132 -KAC4) 8 O 680542920 
000133 TF (KRC7) 385,365,390 
009134 365 CALL EQUIL(KG,0.,PECI8,3T)) 60542930 
070135 390 Ka(6) # 0 - 80512940 
' 000136 FWCES,IT) & (RHOVWCES TT) © HRCL.5)) 7 C4 80842980 
000137 TFCKR( 42 )¢1) 391,392,394 
000136 39% ORNL(2)8CHWC1S8,1729664,4))/EABE 
000439 392 DANL(LIGEWC IS, IT) oP Cd.4d) 
000440 LFECN5PMY) 395,595,395 
000441 393 00 394 Kat, NGPML 
009142 394 DRANL(KO2) aC SPWCK, 18ST) 98P (259 0K)) /BASE 
000343 GO TO $95 
600444 C KIPud IF UBING ASSIGNED TEMPERATURE ON ENERGY BALANCE FOR TEFLON 80542970 
000145 395 KIP 9 0 : : 80842980 + 
000146 (3) sRHOVS=¥(2) : 
000447 IF (YTABBCKRIO) © 4) © 4° 160,450,400 80543040 
000148 400 HMA? ® HYEF 
000149 EMIS # EMI8T 
000430 TE (1TS © 2) 465,465,408 80843070 
000183 408 IF (TFZ) 465,465,416 80843080 7 
000152 410 IF (ABBCT(A) © TFZ) © 40.) 468,438,435 80843090 
600153 445 $F COTEMP © DUM2) 440,440,420 80543200 
000454 420 IF (OUME @ 20, + WOOT) 429,425,430 60843240 
000155 . 425 TFZ 0 TEL) © 50, 4 OTEMF © AYEMP 60843120 
00025 BUMP ® 4, 80543130 
00025 GOTO 435 80543140 
000158 430 TFZ @ Ttd) 
000159 435 TWUIS IT) 2 THZ BO5A3160 
000460 GOTO 448 80843170 
0001461 440 TWOSSIT} & TC8) @ 5G, / OTEMP o@ .TRMP 680843180 
00262 BUMP 8 4, 60843190 
000463 445 KIP 6 4 B0Sa320C 
000164 450 DANL(2) s TWC78,I7) = 44) 80843240 
000165 am(a.4) 8 0, 80843220 
000166 aM(2,5) & OTHW 86543230 
000167 00 455 Kei, NSPMi B05a3240 
000168 455 aM(2,K + 8) @ OTKW(K) 80813280 
000169 1F (KRC9) = 4) 475,475,485 80543269 
000170 460 HMATOHC ARS 
000471 EMTSeEMISC 
000472 465 FZ 8 Q, 
000173 OUMY © STEF © EMI. @ (T41)) @ @ 3, 0 C3 80523330 
009474 ORNL(2) = © WALLG@ # RHOVS @ (HMAT © Glisd)? = DUrty © Tla) + RADE’ 
000175 LIS) eC3IoW( 2) eC HPGeHMAT) 
000176 OUM2 ® ORAL(2) 69843360 
000477 AM(62,4) 8 DQJRNL(i,4) © C4 © (604.4) = HMAT) 
000178 DUM, ® OUML «@ ¢, 80543380 
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& 


° 





te 


090379 
600180 
000181 
000182 
000143 
000184 
000145 
9.0166 
000187 
000188 
000149 
000196 
000191 
00192 
000193 
090194 
000195 
000196 
000197 
000198 
000199 
000200 
900201 
000202 
000203 
000204 
060205 
000206 
000207 
600208 
000209 
000210 
009211 
000212 
000213 
000214 
000215 
000216 
000237 
000218 
000219 
000220 
000221 
000222 
000223 
ocod226 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000255 
000236 
060237 
000254 


&4(2,5) = OGJRNL(2:4) © DUML © DTHW ¢ RHOVS 803943390 
DO 470 Key, NSPME 60523400 
470 a4(2,K * 8) & DGJRNL(K & 254) ¢ OUML @ OTKW(K) 80543440 
TF CKR(9) = 4) 475,475,485 60543420 


475 ORNL CL)8 VLNKW 
00 472 Kei,N&P 


Jar{R(K) 

FNUC JI SYNUC TSU, J) 

IF (CLEF(K) + LEFWCK)) 474,471,472 oNEW 
472 FuUCJIEO, OGe4 


472 CONTINUE 
ON 476 Ka1,N&P 

476 ORNL (L)SORNL CL) +YWCK OFNUCK) 
AM(4,4) 8 O, 90843440 
pDUMg = TCW / TCL) 80543450 
AM(¢,5) 8 OUMY © OTHW 
DO 477 Kag»N§P 

477 AMC 4.5)94M01,5) DL PHOK @FNUCK) 
09 480 Kei,N5PML 60543470 
AM(4,K45) 8 DUMLEDTKW(K) 
00 480 KKai,NSP 

480 aM(4,K45)6AM(1,K9S MOL PK( Ky KK) OFNUCK) 


G6TO 510 60543490 
485 IF (KR(9) @ KIP © 5) 495,490,495 00543500 
490 WhO? s C3 © EXP( (ADUM @ TWCIS,1T) + BOUM) © THCI8,IT) + COUM) 80943940 
AM(1,5) 2 0, 60843520 
KIPsK{ Pot 
w(3) @ WOOT 80543540 
wi2) 8 0, 80543550 
Wdd) 8 0, 80543360 
GTO 298 80543570 
495 WOO? © C3 @ EXP( (ADUM @ T(t) * £50) © 7¢2) + COUM) 86843560 
AM(2.5) # WOOT ® (ADUM @ 2, © 144) © GDUM) 60543590 
500 ORNL (4%) * RHOVS « WOOT 80543600 
OUMY ® ABS(ORNL($)) 60543810 
aM(4.4) @ = Ct 80943620 
DO 805 Kei, NSPMi 80543630 
505 aM(a4,K @ 5+ @ AMC 4.9) © OTKW(K) 60543640 
AMi4,5) @ AM(CS,3) © OTHW 80543650 
510 DO 520 Ket, NSPMiL 00543660 


DRNL (K$2) meWALLU(K )@RHOVEO(SPCAL A KIMTOCK A LSIOWTM(K) DOHC 2) OWTH(X JO 
1 (TACK L2)°7QCK L359 


00 345 KKed,NRAL 86543680 
515 AM(K © 2,KK + 3) 8 DQJRNL(KKOK @ 4) B05:35690 
AM(HO2 04) OAM( KOZ, 4) OCLOCSPC Ls dK TOCKeLSIOWTM(K)) 
820 AM(K @ 2,K * 8) @ AM(K @ 2,K @ 5) + RHOYS 60843710 
f1t2 0 80543720 


525 [F(W(3)) $40,530,530 
530 DANLCL)8(WDOTH@W(S9)/C2 


WC3)eWOOT 
00 535 Ks2,NRNI. 80543760 
$35 DRNL(K) 9 ORNL(K) © ORNL(L) © AMCK,4) 60843770 
Ite 80543780 
540 xX 8 IX 60543790 
CALL RERAY(NRNL OS 22 A4MS5$4%.1204),0, ORNL CL1OS) 5400, 1XX0153) 805¢3800 
1F (KR(9) > KIM © 6) 460,545,860 B08*3A20 
$45 OTEXP = ORNL(2) © OTHW 80543830 
00 $50 Key,NSPML 80543840 
350 DTEMP & OTEMP * DTKW(K) @ ORNL(K + 2) BO5a3AS0 
ATEMP & ABS(DTEMP) 62543860 


~49- 


nat aoarwinine eri as _alieeloiant int 
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ate aaa Be SS SASHA i eae 
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0002359 
000240 
000241 
000242 
000243 
000246 


If CATEMP «= 50.) 555,560,415 
$55 Tez 8 ~ Ti) 
860 CONTINUE 

WOOTSH(S) 
$95 RETURN 

END 
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c. Flow Chart! 


ALUATES UCED SET OF OP AND DJNL. NOTE... OOM. FOLLCHED GY | 
DJHL IS EQUIVALENCED TO DGJNU FOR CONVENT CF FOLLONTNS Looe. i 
ALSO, THE REDUCED SET OQURNL 18 EQUIY. RMCL) FOR STORAGE ECON. 


Betictearthamapi ba Seti teal Abe ONS SMM ores AS ee AO, 








DO 275 Jmi.NAH 


JJ © LARC 


IF ST = 1) 278. 270.276 


She DaLQUNCKS = ESLounck> + BOUND Cuu.k> o GR CUD 


PO USESLUT- KY = OGIRL CT. K) - BOIL dK) © Fe i =«d 






IF CKRC99-2) 318.285.277 
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205 Du 290 Loi.3 


ne 


as eee) 





WILD = FLUXUCL. IS. IT? 





Cc PREPARE CQURNL AND WALLQU FOR ‘SURFACE KASS BALANCE 







295 HSUM = HCL) + WC2> + WCE) 


BO 310 ket.nSP | 


BELOINERD 


ARE DREGE aD ay 
oAd°® 7) 
ase ~ 1) = RAL m3 = 1) = DOJRNUCL.K @ RHOVS ~ DOUJRNLC2.K) o 
DO 810 KKeg, 









. 
320 IF SKROL72> 340.340,335 || 
— 
iT 
DEBUG DaURNL CHRNL. NSPD RY ROMS, DELGN(5>,WALLOU(B>/ f 


are LP COIPLDELO.$5> 
320 FORPATCOEA “DEBUG DQJNLSNNLEQ. NSP? ROW BY RON /<BX1P10E19.372 







236 WRITESKOUT.3309¢(DOJHLCT, KO. Kel.NSP?, Ii, NNLEQ? 


$0 HRITECKOUT.326 >< COOURNL CT. KO, Kod, RSP, Ted NANLD DELON, DELVH, HALLO, 
1WALLY 


eae 












if 


ey 
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TS an eS Adin Mica eee 


Xe - 2 
3$5 CONTINUE 
IFCKIP) 346.396.375 


246 IFCKRCAY-2) 347,366,396 
———— 


347 DRNLC1>@FNCIS. IT)~FC1, b> 
ORNL<2 «0. 


IFCNSPHL> $50.350.948 


348 DO 348 K=L.NSPM1 








DRNL CK +2-~SPNCK. IS. 1T)-8P¢1,1.K> 
3¢9 ORNL C2 >=DRNL C2 >4+DRNLCK+2 ) @DTKWCKD 
352 ORNLC2)=CTHCIS. 1T9-TC1)-DRNLC2)2/DTHW 


60 TO 535 





352 ORWLS2 SHNCIS. IT>-8¢1. 13 
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968 KQ<1> = 
ORNL <2 > 
HIP=<6¢ 


2 
*HNC IS. IT)-6C1. 1 
BCL. 1> sEAgeecHucis, ST>-B¢L.19)2/1.8 


G0 TO 380 


270 KQ<1>=1 


| ies 376.374 .372 













375 TCLaT( LI +ERSEOCTHCT 
KIPOMAND CIPS @) 
378 KQ¢1>s0 


380 KOCS> = 2 
SPNEW*0 . 
KOC4) = 0 


IF CKR(7) 385.285.3390 







305 CALL EQUIL(KO.0.. PECTS. IT>> 


380 KGCB) = 0 
FCTS,IT) = CRHOVNCIS,IT) ~- HECI.5)> / CL 
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MRC11)—1) 381,292.383 
381 DRNLC2 ex $. IT9-O¢1,1)) 
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Ses, oS v ty - @ ca 


iat 
7 a 
’ Ss 
ao 3 
7 53 ee 
:3 + i 
2 
a 
‘ 
i 
° 2 


@ Ci 5 : 

- 6C1,1>> = DUML « T(1> + AROS 
(1-1) + CL @ (B¢L,19 — HART 
(2,1) + DUML +°DTHI + RHOVS 


= 


00 476 K=1.NSPM1 


“TF KNGSD-= 6) 975.975. 008 


J=-IRCK) 
FNUCJ>=YNUCISU, JD 


IF CLEFCK) 4° LEFWCKD>  S71-971.972 


S71 FNUCJD80, : : : ‘- 


a CONT NUE ~ 


DO STE Ket NSP ee a 


GO NT? ~Kal.NSP 








S17 BAC1.5) ACL. 5 -DLPH RD FMD 


DO 400. Kol, .NSPHI 


“RHCl.5) = AACL/5) © DTM 


$10 DO 520 K=i.NSPH 
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DRILK4E) >-HALLJ (K) -RHOVS9 (EPC LS 1K TUCK LS) ONTH(KD 4H1CE) eT & 
1 CTOCK,L2)-TOCK-L99> ee 


ics ve ars 


DO S15 kKe1. NAL 


> 









520 AMCKK 4+ 2.K + 5) = AKCK + 2. + F) + RHOYS. 


REL ees 


B25 IFCHC3)> $40.530.590 











10 Im > In —— ; 
CALL RERAYCNRML-IT.PH(II+1. 1144).0-DRNL(II+1), 1.0. 1XK, 152 


IF CKRCS> 4+ KIP ~ 6) 569.595.56¢ 





[Se OTe = ORAS > OT 
Do 550 Ket. nSPHT 
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6. SUBROUTINE LINCER - BO6A 
a. Function 


Evaiuates errors. ‘or linear equations (i.e., Taylor series expansions 
and linear boundary conditions) and with the aid of its subroutines, determines 
maximum errors of linear’ equations and corrects errors for these linear equa- 
tions for the matrix reduction which is performed’ on the linear equations (see 
discussion under subroutine MATSL). ‘Called by ITERAT. Calls ABMAX, MATS1, 
MATS2. 


~6l= 





ocronms 
ocnrve 
9*0n3 
ACNOe 
OCOulS 
ocarta 
9C00C7 
ATnoOUn 
neoons 
oronid 
o70Gi1 
atne12 
oconis 
aanuis 
fron 
(hal heb & 0 
ocons?7 
ocanin 
ocng19 
900n2c 
octane. 
NCU 2 
Orodes 
or nn2es 
Ny0025 
ornneea 
ocnue? 
ocno?re 
ocoo2¢ 
ocne $6 
orcons: 
ocosse 
ocness 
Acne $e 
Aran dss 
OcOoSsaA 
ocnns? 
OC 0030 
o0nose 
goanac 
ocou4s 
oonns? 
ocno4s 
9c0046 
On004> 
ococ4ea 
oroa47 
Oc0O4A 
ocou4se 
90009C¢ 
9c005) 
oconke 
dconss 
Onn0s4 
ocanss 
ondos6é 
o0n057 
OnCOSA 


b. 


9 401 te2,NET4 
1ECS<2) 4904,4003,4004 
4003 {FCKP(19)) 4006,4000,4001 
4004 TEC ToMETA) 4992,4N05, 46002 
40ND LFCKR(102=1) 4907,4000,4n02 
409G piMisA( 4) 
niimesh($) 
fb INSehC 2) 
Ditasncd) 
DNS BALL) 
oimMast.9 
G1 70 4002 
4004 tmy8h(3) 
D'im2ad, 
D'im$aB(1) 
winget, 
o'th$a1.0 
OWMéest, 
4002 CANTINUE 
FLEC LoL sol F (islet ODF TACT 91 OF (2, 1-1) ¢08Q( 1-1)/2, oF (3. 1-4 40Cul 
Li9t)e(CUM1 8F 04, S91 ODUMZ0F (451) 9"F(4,7)) 
Me LONE TA=2 
FLE(MIS@CFC Ee Los DODETA( 124 FCS, od OMEQC $91 0 (DUM3IOF( 4, 1-4) eDUMGs 
VEC4, LF C200)? 
weaMey 
Of 463 KstuL, usPMy 
SPLEC TK) e=(SPC Ls tod deDETAL 1-4 eSP(2, 1-15K)40SQ0 1=1)0(0 IMSaSP(S, 
i Te1,K )@D0UMG0GP(3,1,))-SPC2,10K)) 
403 SPLE(M,K)e-(SP( 2,24, K ONETA( f 94 )oDUMSe(SP(3,1~1,K )+DUIMGOSP(3,1.K) 
1 YeSPl(2,TK)) 
Mele2eNnETAe3 
4M FLECMI BaC ECS, ToL ODET AC 1-1) eD MBO(F (4, Too SDUMBOE (4, TL) OF (S99) 
FLECOATLS DBF C3, vE TA) ODUM 
GLE CL BoC GCL NETAD@GECITE)) 
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Listing 
GHoea 6068 901 
& BROUTINE LENCE? 8064 002 
CORMON/JENGCOM, PE (60, 1),PTEC40, 1°,8PE( 0,40, 1),0UES,8064 Sener 
Litt (46), RE (4). VMUE (40), TEC 49) EDCE .DUECGE .D2ZUENG. VMWE ,wE.C9O a0és 4onex 
7 ~OSIPC 4S), 1OSIP, TTVC.TVCC1 40) R064 86S ONEW 
CMNONSERRCOMSELE( 43),0LE(30)¢SPLECSD. 9) 0EL 00343). FLEM,CLEM 8066 6eNEw 
T,SPLEM(C Ado ELMI 149, EL“M, SFLM,IGLM, ESPLMC 8) oNELM, ILMM, DEL C43) 0064 7eNEw 
Pe°GLESC) FP SPLC30, AFNLEC LAY, G8L.E695),SPNLE(38, A),ENLO353) 606s, 8 AeNEL 
S,EMLEM GLE. SPNLEM( M5, ENLMM, TENLMICNLM,ESPNLA( 8) B06a 8 9eNEW 
4, ‘EWE. T.LMM, DENL (34) .DCNL(15),PSPNL (45> 8) ORNL (10) 8068 109NEw 
COMM ONSET ACOM/ETA( 15) ,.DETAC 199 .9$A(14) -0CUC24),81°446),82(24) 8064 i110NEW 
3,..09(253),841(43,16),842030.1%) BN64 120NEN 
COMMONS INTCOMS KRG 20) KIN KOUY,MATLT MATOS MATIS MAT2U NETO} ,1S,"BOAA L30NEW 
16, ST RTIMENGPNSP4L VAM,NLCO,NNLEQGNANL, [7S,KAPPA,CAAR,CASE(3S) 8064 140NEn 
2,0CK), MdE NONSKGO(L0) ITEM, NITEM, KAL7NATNQT2, IOENT.KRO(40) B068 LSONEW 
Se<AlKO,UTIME, JSPEC, MNCS) BO4A 160NEW 
COMMONSPR*COM/TIVEC 50), PRECON) PTET( 50),GE¢ 50).8(~J),M0KAP( 40) BOGA 17ENED 
1, °°. OSE -VKAP. INISCs IDISE640) VSD( 10) MSOC LO), ITEC SQX,IPRE,RAONO, B064 LRONEW 
2CANE -RANFL( $0),RADR(40),RANS( 40), S2an 606a i90NEW 
COMMON/V ARCOM/E ( 6,95).603,15),SP( 3545, 9). AL PH A06a = 20°NEW 
4 FVALUATE LINEAR ERRORS FOR MO'ENTIM AND ENERGY B064 0180-38 
NCLMehhPoy ahes. 019 
NENL eNEL™ 8064 20 
W Iked 


3C005S 
ooorec 
oconey 
ornoee 
9rane3 
q-nnne 
AAKES 
CC anes 
VAN? 
9_nrer 
at 49 
Vole 
see71 
977972 
ocoa73s 
bane) oa] 
Wwelo/s 
ocon76 
ACAI? 
OCNo7n 
970079 


45 


av4 


as? 
436 
46 
44S 


474 


SLECMAT21 8-62. E TA) © DUNS 

f€ CSP M1140 4,404, 495 

OF 492 Key, NSP4 

SPLE(4 M289 (SCL NETS K-SPE (UL TS, 179) 
SPLE (MAT21,K)9-SPCZ,F TAH) © DUNG 
CEVERPINE MAXT 4 LINEAR ERRNOS 

CALe ObMax(“aTZ21,SPLEC1 54), SPLEM(K), JSPL4(K)) 
CLL ABMay( Hata! PLE FLEE 4, FLY) 

C*RL bean 4a 2t,GLe GLE, 16U4) 

EL™C4 8FLEM 

tihCgds6Le™e, 051 

1£ 6" 5P'1)406,406,467 

07 646 “23, 1ELM 

ELMUW )SSPLEM(Ke2)a.4 

CALL ABMANC HELM ELMSELYM SIL MM) 

FoR? PRODUCT CF seeey aND LINEAS ERAQORE 
CALL MATSt (FLED 

nO 474 KertL,.SPre 

S*LL MaTSa¢(SPLE(1,K3) 

Re TURN 

£30 
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806s 


e0es 
0064 
e0ea 
R066 
e0es 
6064 
8064 
0068 
0068 
8064 
6068 
806s 


e064 
8066 
B0Gs 


044 
046 


n48 
049 


038 


962 
065 
066 
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c Fiow Chart 
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FLEC secdumise ct]: “14 LF (2, 1-1) 40B8GCI -19/2 . oF (8. T-19400UC 
ule dec f 


(3 OS od) 


FEC ye lays 1)+DETACI- L>oF (8, I-1)*D8Q¢ 1-1) eCDUMSOF C4, J-1) DUNE 
pe all ee?) 


OF C4, J-194 Hee Tse 
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© PLE CT. Kd 0- (RT. 1-1. Rp aDE TK 1-1 0 C8, 1-1, K) 1OBO I-15 0C DLE OOP CT, 
1 1-1, 40UN6 OP (2, F.K>-8P C1, 2.09 


"et PEG OE T-Lkbe LoDo (SP C8, 1-1. K) sOUMB CGP (9. I,K. 
r >-9P C2. 1.9) 


401 FLECHD6-CFC2. 3-1 )+DETACI-1 }ODUMS OCF CG. 3-1 24DUNG OF (4. 1 )-F C3. 19 





LECMATI T= - NE TAD <DURS 
QLECL3e-C6C1. GE CT TENS > 
GQLECMAT21>=~8¢2.NETAD © 


CNEPH 5404. 406. O86 


4635 00 402 Ke1. 2 





402 CALL ABHAXCMAT2I. SPLEC1L.K. SPLEMCK). ISPLUCK)? 


MAX CMATIT.FLE-FLEM, JFLKD 
CMAT21. OLE. GLEN. IGLM> 


ELMC 1>@F LEM 
ELM<2 = OLEMe.001 


IF CNSPML D406 . 806.407 


$90 ELMCK>=SPLEMCK-2¢.1 
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7. SUBROUTINE REFCON - BO7A 


a. Function 


Calculates boundary layer edge conditions and sets up wall boundary 
conditions for uncoupled problems. Calied by SETUP. Calls INPUT, EQUIL, SLOPQ. 
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2 nnn attains aetna 


aaa nit tg Pete ade 
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Wools 
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O¢nc17 
oooo1e 
900019 
A. 0620 
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area2s 
nnoged 
ocne2s 
or0n26 
50027 
960026 
orng2s 
ocogsc 
300042 
oonns2 
ornoss 
aconsa 
Ocno3ss 
o°005e6 
0c0037 
nroosa 
0c0059 
oona4G 
000041 
ocon4e2 
oro04s 
onnn44 
030045 
AvOAU4e 
qana4? 
ooon4s 
00049 
anoo0so 
ocouo1 
ocdos2 
0c0u%S 
(skeD Tabad) 
OFNVeS 
OONC 264 
nco00>7 
OGOODA 


b. 


Listing 


Chora 


S'BRGUTINE REF CON 


COMMON ZED ECM 


7 USERPICS, IPSIP, TIVE, T¥CC( an) 
CO MINK JH IESCORZCS C2eC3,C4s ALPHD BETA, 26(4,24).2664,14),78P04,14, a807A 
1 99¥S641), WEC19,59,HGC15, 30 HSPC15 03, Bs MALPM, HUE »MHUE EW, OLN? B07" 
Se SNC 4C), NET ANC ALD 
CoMRUNSIR TC OMS KRCZN) KIN KOUTS“ATLE, MATA MATL MATAINETAS 1s 1S .9BNTA 
AS, IT,NTIVE, SP NSPM1, VAM MLEO,NYLEQ,NQNL, 17S, KAPPA, COAR,CASE(15) BOTA 
AHE MINS KQCLOD ITEM, NITEM, KAZ 7 NAT NBT2, [OENT,K99(46) 8074 


2732, 


3,4AUROL TIME, JSPFC MDGS) 


COIMON/ Pw C8 TIME C 5) PREGA) PYET( $9),GEC $0),8(49),ROKAP( 40) 
1,799 VEAP ANISCs LOLSC(40). VEO(20) MSOC AO) ITEC $09, 1PRE,RADNO, 
2CNME FRODFL( 50),8A0R(40),RANS( EF), [Raf 

COMPON/ TES COM/SPEUMC ®)eNERCAP) ,01IMMG (15) SLOPE (LS), REDUMS 15) 
1.501040)  SOUIA2¢ 40) ,FWNUM( 40), xSCON( 40) FWCONCGQ) FWINIT( 1) 


AoXTINIT( LeMIDBE 40) 
CRMMON/VASCOM/F (6,15) ,6(3,35),5P(3218, 99,AL PH 
COMMON/WALCOMZEU( 40, 12eTWK40, 1),HCOOe 2)GPwt BL40, 2) 


Le MOvwC4O, LISELUXIE 3640, L),LoMe LPW, IF We 1OPw, IReOVYD TFLIIRY 


FNRMET(AEL0,4) 

FARMATC(IS, 7E40,3) 

Fre ali(t2) 

PORMAT (AHL) 

FORMAT (7.4% 23HDISTANCE FY 0@E12.9/(24x%,8E12.5)3 
bARMAT (7,1%,23HPRERSURE RATIA 06E12,5/(24%,6642.5)) 
FORMAT €/,1X,2SHENTROPY DROP,FTI/LS & 18E12.95/(24%,0812.5)) 
FORMAT €/,1K,23HRALL ENTHALPY,BTU/LB »6612.5/(24%,0812,5)) 
FORMAT (/,1,23Hm ALL TEMPERATIIRE NEG @ »GE12.9/(24K,9E42.5)) 
FARMAT (7,1X,73N4ALL STREAM FUNCTION »486%2.9/624%,6812.5)) 
FORMAT (/,4X,23HMASS FLUX,LA/SEC Fee? .8612.5/(24y,6812,5)) 
FORMAT (/,4%,23HELEMENTAL MASS FRACTION: OE12.9/(24%,6642,5)) 
FORMAT (/,1%,23HCOMP FLUX,LA/SSEC FTee2 »8612.9/(24x,8612,5)) 
FORMAT (7,1X%,23HSTATIC PRESSURE, ATM 0 GE12.5/(24x,6812,3)) 
FORMAT (/,4X 5 23HRE Pr (LA/SEC ) 002 0 6E12.5/(24x,8E12,5)) 
FORMAT (/,1X,234HETA 0 GE12.5/(24x, 8612.53) 
GARMAT (7,1% + 2 3HROKAP ofE12.5/(24x,8612,5)) 
FARMAT (/,4X%,23HEDGE VELOCIYY,FT/SEC +8€12.5/(24x%,0612.8)) 
FORMAT (/,1%+23HNORMALIZED MASS FLUX 08E12.5/(24%,8G12.5)) 
FORMAT (7.1%, 23SHNORMALIZED COMP FLUX 0 OF 12.5/(24x,0612.5)) 
FARMAT (/, 1X, A3HINCIDENT RANTATION FLUK, 8E12.5/(24x,0E42,5)) 
FORMAT /.1 Ke 23HoL/FLUX NORM, PARAMETER ,f612.5/(24X,6612,5)) 
tf CLTEM=1) 1530,1538,1539 

INS {ped 

{PRE ed 

[whet 


On $540 121,68 

OFIPCT) 20, 

TF CKR(G 25) 1936,1937,1536 

1F CLOSIP*ITEN) 1536,1535.1536 


READ (KIN, 7907) (OSTPCT), 104,48) 
READ (KS ,396) TOSIP 

TE CEPRES1TEM) $534,1533,1534 
READ CKEr 7907) CPRECT) oPeg.N8) 
WEAD CRIN, 106) IPRE 

TECPRECAL)) 15949,9542,1943 

be 1943 [2Z,"8 
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PE¢ 40, 1),F TEC 40, 1>,SPE¢ 6,40, 1), NUES,BO7a 
11041) Rote (4), 1MUEC 403, TE (4%) ,UEQGE NUEDGE -O2UENG. VMWE WE. C90 


O74 
BO7A 


AO7A 


8074 
BNA 
e074 
a7a 
AO7a 
8074 
AOTA 
a0v— 
A074 
Onva 
Aor, 
807s 
A074 


B07a 
BO7A 
8074 
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8074 
8074 
e074 
Q07a 
BO74 
e07a 
BOA 
8074 
8074 
8078 
8074 
AOVa 


BOTA 
8074 
8074 
074 


Bova 
6074 
B074 
B07a 
O74 
ROT, 
BOv4 
BOTA 
BOTs 


001 
002 
SeNEW 
Gengn 
SONEL 
6ONFW 
Tene 
Boney 
@eNED 
yOomeD 
LLiONEw 
L24NEL 
adenew 
24eNEw 
LSONEW 
L6ONEN 
474NEW 
dOoNEw 
19ONEW 
20eNED 
21°NEW 
9240019 
nas 
N26 


027 
nen 
nae 
030 
034 
032 
033 
034 
033 
036 
037 
036 
039 
nag 
a4 
042 


naa 
031 
032 
n3s 


034 
N55 
056 
057 
058 
05¢ 
060 
Nat 
N62 


ce ene te 


NING%y 
CUNSHL 
OLNG61 
1 reg 
St Pues 
lommel ere | 
INCAS 
OrNChé 
17067 
athe 
Dat hel ok 
Aanulg 
INTL 
ares2 
Ones 
oror74 
ocan7s 
O50 76 
An0C7? 
OCNO7k 
NNCO7y 
OCOCbu 
Onochy 
Arncdg 
CQUOUS 
Q7T00K4 
0: NOb5 
ANKLES 
OCnLh? 
NORA 
070g 
Hence ge 
Ouncy4 
ocnnye 
bel etin ee) 
ional el arr | 
aA YSs 
Or Onge 
Oonn97 
AONGR 
ALONYS 
oraiue 
oondiig 
ornice 
ornagn3 
Noord 
ocnans 
Or oes 
ornq7 
WAL we 
elaleb Gand 
Andie 
ocodids 
areyi12 
oeeq13 
Ooriia 
100115 
000416 
orn4ai7 
annyia 


1944 


1543 
1946 


1$4¢ 
1341 


1531 
15€< 


1554 
1555 
165 
2n4 


AANZ 


992 
994 


4993 
8004 


2n3 
ors 


Aare 
210 
215 
216 
205 

9903 


9904 
404 


6cs 


JECPSECT)) 1946,1543,55446 

tel 

G” T7 4645 

CU TINUE 

@° USEBS(LIJSCRI(CL, -PRE(L)) 

i 1946 Te2oL 

PRE CTOLI B81 eeSCJ-3 )/RVCSE OS ( 124 /RNOSE 


0” 9531 Lei Ne 
PYECT el) sPYETCITEM) BOTA 
RECT ,LIZETECL .1ePRE(T > B07a 


HE CE €ab-1764)9554,1592,1554 
READ (HT .,7907) (RADRCTI,Pad,*S) 
near ¢e15,41949) fRAD 


99 £553 Lei,hs 

mQOS CL) sRaCKL LTE 4) eRaCR(T) 

fr ah toeleds 8074 
1© (15"4) 207,207.203 ON7a 
Tu— FOLLUWING PRCCENURE DOES 07 APPLY FOR NONEQUIL OR ENTROPY La, 074 
K-(1)82 8074 
«15982 B07a 
«re (eyen 8074 
0704)86 B0%a 
fF (KROC7))960663,8093,8902 AO7A 
Call Starr 

a 2TTECKOUT, 992) 

WIPE CKAUT, 994) 

FARMAT( AHS LOXZOMISENTRUPIC EXPANSION a a coe one 4) 
FARMAT(SXI17HSTREAMWISE TEMS RTATIC DENS 

Ivy VISCCSITY VELOCITY ENTHALPY ENTROPY mMaCH NO, 
25Y45HOT MENS TO: FROZEN PRESSURE /7X101H( FEET) 

(CEG R) (RTU/ cat) (LAZCU FT) (LB/SEC FY) (FT 

4/5EC C2TU/LA) CATUs = /3SAXIOHLA DEG &) 62x1GHLB NEG &@) 7) 

G1 To #004 pOov7A 
CALL EQUIL (KG, GEC ITEM) PTECG,1T)) BNva 
KrC1 703 6074 
Ko(2)80 8074 
Ka03) 86 BO74 
«75981 Bra 
TECKR(6)"2) 299,293,293 

Te (KRO7))80045,8006,4008 BATs 
CaLL STATE 

6” TO 210 

CALL EQUIL(KG.0.,PECIS,IT)) BOTA 
1F (NSPM1)205,208,215 

C9 216 Kai, NSPMi BO7A 
SPE(KsIS, TT) sSPCa,NETA,K) 8674 
TECKRIZ5$) 9903,9804,9903 OO74 
CONTINUE 8078 
WRITE CKOUT, 9901) IS+HE,LF CIS) PTE(1S,1),TECIS) RHOE( 1S). VMUEC IS) BOVA 
CAR TINUE pO74 
CONTINUE BPs 
ED OF ECCE PROPERTY LOOP, START GF BFTA AND kt CALCULATION BO78 
LEOGER1,C 8074 
DIRAGESO, BOTs 
NOUENGEO, 8078 
xp(trac. anva 
JeNOISC+s pOva 
Of 441 [Jadu 8074 
wKeaNSOCIT) BO7A 
reMSncit) AN74 
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064 
65 


166 
068 
069 
N70 
074 
072 
073 


076 
077 
7A 


064 
08s 
096 
097 
098 
099 
100 
101 
102 
103 
104 
15 
196 
107 
1n8 
119 


we 


orniqig 
o0ti2c 
01s 
onnr22 
0601-3 
090126 
990175 
Ocn17é 
n¢eey27 
Cndase 
ovnacs 
On013C 
090351 
0u0132 
ons 
onnys6 
0c 0438 
oro3 86 
000157 
or015e 
nanys9 
57034C 
noo0a41 
00n142 
900143 
00n144 
000145 
oonise 
00147 
onny4s 
000149 
900156 
9001451 
0901452 
0c0153 
000154 
000195 
0n0156 
000157 
onoisa 
000159 
00n240 
000361 
000142 
ocn1é63 
000164 
060165 
000166 
oonie? 
190108 
0091469 
0n0470 
Ov 7472 
WUL72 
000173 
090374 
00n475 
990176 
000177 
000176 


4052 
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432 
403 


Chad | 


4044 
are 


4n2 


407 


409 


4 
408 


405 


4082 
4053 
406 


4046 
4041 


4°'B 4eL 

Li ekenme4 

1F (ife2) 6052,6952, 4092 

1F CKR(6)-1) 400,401,402 

OVISYMETRIC ALUNT 

NC 403 Pstiole 

§uM20})8(1)0S$01) 

1FCSCL)) 463,403, 4032 

(Mg BROMAF(T)/S0$) 

XICONM J) SVECT)/S¢ 1) RMOE( 19/4, eVMUEC 1) CDUMLEDUAS 
SNUML C1) sS0UM2( 1) e8NUu42¢ 4) 

lysed. 

RET aM( 3985.5 

Gn TO 406 

PLANAR BLATT 

07% 404 ITs”, 

STUMP CT) 8801) 

TECSCT)) 404,404,4044 

KICGvC JPM ECL)/SCTORHOE( 11/2, evMUEC I) 
SPUALET sSC Ll eSty) 

qre2, 

BETAMNid a4, 

69 70 406 

TE CKR(6)02) 608,407,408 

AMISYMETRIC SHARP 

OF 409 TemM,Ly 

SPUM2(1)8S( 190863) 

Og sROKAPC1)/$(1) 

XICONE I DORHOEC | OUEL TL DeVMUEC fT )enuMy,!, eOUML 
SNUML C1980 1) e8DUM2¢ 1) 

ata) SXI1CONC1 IOS (190862 eS cd) 
t23, 

IF (1-2) 4954,4051,406 

PLANAR SHARP 

ON 405 feMeLL 

SOUM2¢1)8S(3) 

KICONC I) BRHOE( | OUEC] )eVMUE CL )o7 JKAP( 1) OROKAP(T) 
snuMaclissct) 

orei, 

1€ (il*2) 4652,4052,406 

wired) @XICON(1)08(4) 

MMsM 

CONTINUE 

CALL SLOPG(K,S(M),UECM) ful S(™), DERM) ) 
TE (KRO6)92) 49664406204 502 

IF (Med) 4061,4061,4062 

1F (RNOSE) 4063, 4063, 40 s¢ 


COMMENT, , DUES COMPUTED BY $7,6-A 
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COMMENT, .,OUES FROM EFFECTI' £ NOSE RADIUS JSING NEWTONIAN FLOW 
DUE SBSGRT( ZS. /RANE (2 IOPE.4217)032,174002116, ) /RNOSE 


4064 
anes 
4942 


4101 
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114 

9acs 


CUES eDUDS{1) 
Gn TO 4065 


KICONC 2) eRHOEC LIOVMIE! £)4(¢2,0VKAPO2, .ODUES 
CALL SLOPQIK,SOUML(M) XICON(M) MERC MM), X10M)) 
TE CLEOMM) 112,.4102,4:05 

On 420 LeMmMour 


BETAMCLIS2./QGLOXTCL IS EV uveSCL )/8DUMI CL eDUDS(LI/KICON(L) 


CONTINUE 
FORMAT(AEIO. 4) 
WAI TECKOUT, 15) 
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cours K2TTECKOUTs 329€ RADS(1)0f84_NE) yi 
O704'7 SOUTECKOUTS £89€ OSIPCE)s782.NS) a 
elated ICT) C CALCULATION OF C3 MATRIX 0074 175 4 
vey OF 138 f23.~S acva 174 3 
wee IF (ARCS 5-4) 43754375158 8072 175 3 
tai Oo 137 IF (Cle4) 139,139,158 B07, 176 : 
VOL? 139 C3MCTISeSIRT (HETAMC TD /(DUES@RHOE( 2 )eVMUEC 19)? O074 177 ? 
cys 6° Tu 134 8074 378 i 
songg 15e GIMCT 89a HTC2,OxTC LIIZC RHO € P)eROKAPC TICUEC PyeVMUEC °)) B97, 19% aS 
9 M198 136 CONT PNUE 6074 180 X 
77046 ITE CROUTS33)(CIMCT),18L,NS) $ 
TLOLS7 Cc REED WALL CONDITIONS IF UNCOUPLED 8074 1869 id 
2019. JRHOVW2I if 
0499 Tf CITE*=4) 196,108,7006 @ 
Niel C Aft Tuned B074 191 # 
GACY ITae1 8074 192 ; 
O°bsu2 1fwet e074 2938 e 
Pots 17HOVWet B074 194 j 
V'0704 1SPwet 6974 195 ¢ 
9° NZuS LFLUXJE4 6074 196 ¥ 
In Nete 60 49 184,NS 3 
NU2G7 of 49 £291,3 i 
A004 49 FLUXUCLo to) 8 0, 4 
has Pa) 107 1F (KR(9)°3) 7994,7005,197% Ly 
070216 1074 IECKR(9I=-8) 70467,7008, 7047 Ate Oe : 
west 7054 JECKR(1%)~92) 7062,7040,7047 OO74 198 : 
“ NOzl2 TOK2 TECKH(1L)) 7004,7005, 7004 BO7A 199 : 
9.9213 7004 JF CTMMeTTEY) 1994,199,4091 8074 200 : 
aMet6 1991 1F¢ IH-'o1) 1$201.7005,1201 ; 
ow Mas 109 REANCKIN, 7097) ( CnW (J, Jd)  JdOL NTIME), 8d NS) 6074 202 ‘ 
ocnelé READ (KIN, S96) IHW 6074 202 t 5 
orn217 1262 WRITE (KILTLA9ICHWCE, Le DBL NS) oe 
ML OP1A IF CITEM*1) 7038,7938, 7060 ane. 
070219 7905 1F CfTme1TE4)1092.190,1092 BOA 205 ot 
deneen 1092 IFC Teed) 1202,706011202 pes 
orders 110 RFADCKIN, 70979( CTW Joga) Jded NT IME), U81,NS) 8074 206 a: 
nn2é2 REAM (CKIN,1N6) ITW 8074 207 i “ 
0.0723 1252 WOITE (KoNT.20)( THC .1) e182 0NS) Ff 
ACN 4 IF (CITEM@4) 117,117,7060 aoe 
Ornedd 117 [TF (KR(9)=3) 7036, 7067,7047 8074 209 po4 
aa Peo 7O38 LECKR(9)-4) 7060,7961,70460 8974 210 i 
acaze? 7060 1© (CIFmmITEM) 1093,2132,4093 BO74 2143 tk 
nenann 1993 [FC = IFwed? 1293,7064,1203 4 y 
0768 112 READC KIN, TUN7 9 CCEW Ue Id eSISL ONT IME) -UBL,NS? 8074 212 % 
a nasn READ (KIN,206) [FW 8074 213 : 
W051 LAN WRITE (KOUTS2LCFWC LI) 184 0NS), ; 
any se Go TO 7004 BO7a 215 ; 4, 
songed TPAL TE CERHOUsITE4) 1094,248, 1096 A074 216 poe 
alaer ar 1094 JECTFHOVwe1) 1294,7004,122N46 my 
A ASS 19% RFANCH IN, 7097) ( CRHOVE( Jed) SUIS ONTIME ) oUBL ONS) BO74 217 4 
“My 8 REA CHIN, 1I6) TRMOVe BOVA 218 ‘| 
a) vv JmoyWal re 
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090239 
non24o 
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800243 
ocnese 
030745 
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000247 
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060249 
onnase 
O602>1 
nonas2 
000253 
000244 
090255 
000256 
060257 
000258 
000259 
000266 
090263 
000262 
000263 
000264 
0no26s 
000266 
000267 
oco2sa 
000209 
ocoa7e 
000271 
000272 
000273 
c00274 
000275 
600276 
000277 
000274 
000279 
oon2ro 
000281 
000262 
000283 
ocoans 
008265 
OCO2A6 
000267 
Heonaba 
oco2s9 
000290 
000241 
669292 
000293 
000294 
000295 
000296 
000297 
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1402 
tins 
7006 
7915 
1095 
7014 


1205 
1097 


7740 
1096 


7941 


1206 
1104 
7039 
1103 
1098 
7043 

C.. 
7045 


7049 
2293 
7048 


229 
232 


230 


236 
209 


237 F 
24a 
7046 


424 


~ een eeepeRt Purciareran fate eee te 


wWaITE (€9UT2 22) (RHOVAC 1 ot D084 0NS) 
6 TO 7006 

WRITE (XOUTs3O2CHHOVWC 152). feLeNS) 
JECNSPML) 7:1943,7943,7015 

f& (JSPWHTTEM) 16955114,1995 

1€( {5Pwed) 1205,7040,1208 

09% 7014 KelenSPMy 

READCKIN, 7007 9( CSPWCK Jo JS) oJJL ONTIME) o JBL ONS) 
READ (KIN, 26) [SPW 

09 $097 Kel ,NSPM2 

WALITE CKONT, 23)¢ SPWCK,1,29.284,NS) 
69 TO 7943 

© CSFLUXJ=@17EM)1006,115,1096 
IECIELUXJe1) 1206, 7043,1206 

OO 7044 Ksie3 

READCKIN, 70079 CCFLUKUCK, dott) eJustoNTIME) JBL ,NS) 
REAM (KIN, 306) IFLUXJ 

JRMOVW2g 

Of 1098 Ksio3 

TECKRIBIJRNOVW) £104,1103,1103 
WRITE (KOT S24) CELUKUCKs 1 0835104 0NS) 
0 7039 JeieNS 

FLUK SC Ks So LISELUNUC Ke ded) © CSMCU) 
GO TO 1098 

WRITE CKOUT S32 CFLUKIC Ks 104), 189 0NS) 
CONTINUE 

60 TO 7047 | 

LEC URHOVW) 7047,7047,7045 

CALCULATE FW 1 RHOVW GIVEN 
JeNNT$Co4 

OC 7046 S1#t,J 

KaNSOCI1) 

MaMsn¢ tt) 

LLsKoMeg 

ON 209 femelL 

TF CKRCAD) 7049,7049,2293 

RHOVWL Ts ITIBRHOVIC TIT IOCIAL I> 

1F C2l~4) 7048,7048, 230 

1& (CKRCS)) 229,229,259 

VALS0 AT AXISYMETRIC STAGNATION POINT ONLY 
FUCONG I )sehHOVw( 29579762, eC3MC39) 
1F( 324) 209,209,2 


32 
MADIFICATION FOR AXISVMETRIC BLUNT AWAY FROM STAGNATION POINT 


FUCONE T)SEWCONC 29/8¢ PT )@ROKLPC 1) 
GO TO 209 

VALIO FOR ALL PLANAR 

FUCONC I )seRHOVNl SIP I/CS4C 2) 
TECKACO992) 20922360809 

MODIFICATION FOR AXSSYMETRIC SHARP 
FYCON( F)sFWCONC 1278C SeROKAPC $172. 
FLUKE 20 fed) SRHOVNC TDL) 
FwOUM( 4 SEWCON(2 0804) 

LFCKACOI~©2) 242,2370241 

MODIFICATION FOR AXISYMETRIC SKaRP 
FYDUM( 4) sEWOUM(1)08(1) 

CONT [NUE 

CALL SLCPQ(K,SDUM2(M}, BEEBE A PUDeRCaa gt NOngen te 
UO 126 3 «i-NS 

1FE¢% #1) 124,124,125 

fF (KRC6)eL) 133,133,123 
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126 CANTINUE 
7047 WE TURN 
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c. Flow Chart 
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RC? > 6983. 8952 .8908 


a - =: 


CUT 332) 

WRITECKOLT 9949 

S332 FORMATCIHI. ISXESHISENTROPIC EXPANSION /12X1SHEDBE CONDITIONS //) 

994 FORMAT (SX117HSTREMSII o STATIC DENS 
LITY VISCOSITY VELOCITY ENTHALPY patie’ MACH NO. 
2SX0 SHU MENS ION FROZEN /TALZIHCF EET) 
3 (EB & (STU/ CATH? B/CU FT). AB/SEC FT) ¢ 
4/seC CBTU/LB> (BTU «=/IOX1DHLB OCB R) S2X10HLB OEB RD /) 






eo To see¢ 





CARCED-2) 210.203.2083 


2832 IF CKRCT>)8008.8008.800 
. 


@cos CALL EQUIL(KQ.O..PECIS.IT)> 


216 IF CNSPH1)205.205.2:5 
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215 00 216 Kel. NSPHI 










PECK. 15. IT) =SPC1. RETA. K) 





zt 







20S IFCKRC15)>) 9903.996%.3963 


$903 CONTINUE 
WRITE CKOUT. $98 151S.HE.UECIS). PTECIS. 15. TECIS). RHOECIS>. VMUECIS> 










END OF EDBE PROPERTY LOOP. START OF BETA PND XJ CALCULATION 
UEDGE=1. 













IF CTI-1> 6052.8052. 402 


COS2 IF CKR(ED~1) 400.601.1702 


ic AXISYMETRIC SULT 


400 00 $02 I9M.UL 


SOUMZ ¢€I>2S¢J)eS¢1> 








er ee eer SS POS, Fone | 





- 


















v a 
APWL-TR-69-114, Vol. II 
U | 
I 
1 
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4031 DUttieRO €19/8¢C1> 
NICONC 1 SUECID/$ (I> oRHOECID/§ . @YMUECT 2¢DUM1LOOUM! 
Qieq. 
| BETRAAC1>=0.5 
prone | 
r 
4 
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7 


Ret® Sete en Mette ny SMe 





NL pn De Oy 2a ee ae ES 


$09 SOUMLC1)9S¢ 1 eSDUM2 CI) 


ee ®XICON( L908 (1968619081 


: , ~L> 4051.4051.406 ‘ 
—, 
° ty 


$02 CO SOS lett 


SOUT =8<T> : 
NICONC I eRHOE €1>4UE C1) ©YMUE CT) @ROKAPC I> 2ROKAPCI> 


| IF CII-L> 4052. 4052. 906 


4052 XIC1> =XICON( L908 CL 


| 





4051 MtteM 


| 403 CONTINUE 


u 





on 
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CALL SLOPECK. S(M). UE <M). GU0S<(M>. DERCH>> 


CKR(ED-2) OSE. $062. Sz 
t 
6 CH-i> $061, 4061. 9062 


4062 CRNOSE> 4063.9063. 4064 | 





GO6e QLESRROR ICE . /HUECI DoreCi. 112032 . 17882118 . 5/RNOK 


13 CONC LIsRMDEC 1LOVMLEC 1/2. OvKAP+2 . OCU 


LU-WM> 181.9101. 9101 
#103 DO $18 late. 
-80- 
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00 138 [#1.NS 


| 137 IF CI-1> 139. 138.158 
138 C3N¢I>=-SORT CBETAMCI>/(DUESSRHOEC IDeVMUEC 13> 


50 TO 132 


| 158 CSHCI>=-SGRTC2 .eXTC T)d/ (RHGEC TOROKSPC TDSUEC DeVIREC ID 


CKOUT.33><C3KCID. Toi. NED 

Cc REAO WALL CONDITIONS iF UNCOUPLED 
JRHOVH=D 

| IF CTTEH-1) 108.108.7008 

108 IHL : * 

TTWe1 
IFWet 
IRHOVH= 1 
ISPs 1 
IFLUXJet 


‘ | 00 43 T#i.nS 
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00 483 L=1.3 


107 JF CKRCS2-3) 7054. 7005. i072 


| OTL IFCMRCS>-5> 7047.7005.7097 


7684 JFCKRCLLO-2) 7062. 7080. 7087 


RELLA> 700$.7008. 7004 
00¢ IF <IH- > LOSE. 108. 109% 


HW-1> 1201.7005, 1201 


005 IF CkTH-ITEM>D10$2. 110. 2092 


O$e F< = ITM-1) 1202. 7080, 1202 | 
s 
a 


+ 
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Kd ddd, duo]. NTIMED. Jol. NB> 


1202 WRITE CKOUT.20>¢THCI. Ld, Imi, NSD 


IF CITEM-1> 11?.1LP. 7060 






1L? IF CKR(S3~3> 7038. 7087. TOs? 


7088 IFCKRC$9-1> 7060. 7061. 7040 prreenrerecer — | 


Tot0 IF < My 1059-118. 1053 ap 


1093 IFC = -IFW-1) 1203.7061, 1203 





















CSENCU-dd>, JUe1. WTIMED. Jel, NBD 


112 READCKIN. 7007) 
CKT IFa 


WN, 106) 






CKOUT. @3 CF NCI. 13. 181, NS) 


7061 CTRHOVN-ITEMD 1094. 118. 1034 


| 108% JFCIRHOVH-1)> 1204. 7006. 1204 


118 READCKIN. TOOT <CRHOVNC J. Ju, Jd. NTIKED, Jk. NS? 
READ ay 106) IRKOVW 


120% TFCKRC8>-JRHOVN? 1102.1101.1201 


| Ee 
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115 DO 70481 Kei.3 


SA TIERED TIE: 
se 


7091 READCKIN. 7007) <CFLUNUCK. ddd). duel. NTIMED. Jek. NS) 


READ CKIN. 1062 IFLUXJ 
JRHOVH= | 


("180s 00 1086 Kez.3 


TFCKRCO>-JRHOVND 1104. 1103. 1103 


110¢ WRITE (KOUT, 24 CFLUXUCK, I, 2), 1ed,HS> 


7039 FLUXJCK, J. LoeFLUXICK. U.S) @ C3HCUD | 
| 60 TO 10S8 
1103 WRITE (KOUT.31>CFLUKUC(K.1,19.301.NS> 


\ 


1096 CONTINUE 
60 TO Toe? 


7088 IFCURHOVHD TOe7. 7087. 7085 


E CALCULATE .W IF RHOVH GIVEN 


7045 JshOI8C+i 
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48 RHOWCT. TT eRHOVHCT, IT OCOMCT 
231 i> 7O98.7O48, 2 { 


O48 Jr CKRCGD) 228.229.2380 


4 “ 
fe VALID At PATSTRETRIC STAGHATION POINT ONLY 




















IFS {-£2 203.208.232 


c= 
ic MODIFICATION FOR AXISYHETRIC BLUNT AWAY FROM STROMATION POINT 
232 FWCONC ID@FWCONC 19/5 3)+ROXAPC J) 


LJ 203 


fe VALID FOR ALL PLANAR 


[#30 FHCONCT>=-RHOWH 1 IT3/C8nT> 
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IF CHRCE>-2) 23.226. 252 





“57, 24 


230 Fionc 1D CONC 19/8 T>eAC 





/2. 








263 FUndce. 1.1) HOWCT.1> 


OLM< 2 ONC 1)06<2) 







s 


241 CONTIMUE 







7058 CALL SLOPGCK. SOUMZ CMD. FHCONCM). DERCM?. FHOLMCM> 


v 






126 IF CKRCED—1) 139, 133, 12 


et es 
| ise (S¢1>> 313.113.1223 


113 FRCL, TTeRHOVHC). IT) 







60 TO 128 
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et 


8. SUBROUTINE ICOEFPF - BO8&B 


a fe 


i a. Punction 


Calculates groupings which contribute to the error equations and 
: influence coefficients for the nonlinear (conservation) equations. Called by 
NONCER. 


eh BARE: 


~ ON ised es 


am mee ee 


-89- 








eee MEE PHN: NLS TE 


oc ooc, 
arant? 
0° ot.3 
Mees 
Arnare 
arn. ¢# 
n-an.7 
90nla 
On OIL? 
VSESIC 
aqnnyy 
aconiz 
nf "033 
370034 
aro9a1s 
ACOO1A 
oconi? 
ogoo16 
970019 
000020 
ICcOO71 
gconec2 
ord02s 
oe0074 
o1n02$ 
Ogduet 
9c00=7 
ocno2a 
OC00<9 
060059 
or0051 
000052 
900033 
ocogss 
oraass 
000036 
000057 
OcooSa 
000039 
000046 
900041 
oco042 
0c0043 
Ocno4s4 
oo0c4s 
oco044 
000047 
070044 
Gn0n49 
000059 
oocos1 
oenose2 
000053 
oLond4 
060955 
000053 
000057 
ovogsa 


b. 


Listing 
Cages 608s 
SIBROLILYE ICOEFF S084 
SAMMAN/ COE COs C5206 507 CW C9 CLO Z43 O92 00132014, C1 SB98R 


402 


4n8 


ani 


Ve LU6 CL CIM CLF oC20 0 C21 C226 C23 3024 662500260027 6 C285 C29+C301C312CB08R 
23706332634 56355C36 5037 6638 603950405041 104220435046 50645,046,047 1 C4 aR08R 
3,049 5€50 0515052 6931054,0352054,657 658,059 ,C660,061,062-063,C64,CB0AN 
46S 6 CO4 C47 0 C68 C69 CIA CIL C770 C73 967400750 C 760077 CIF 6 C79,C80 C81 BOAR 


5,0862,C83,C84,085,686,C87 CBA BOAR 
CEMMONSEUECINS CKLC 3Y,CK2C BI,CK3C Bd,CKSE 8)CK5( B3+CKAC 8) 8085 
LcLK7C BT ,CKAC 8d,CKOC BI,CKEOL K,CKIEC BI-CKIZE AD,CKI3C AD g0sa 


2,0KGSC BY,CKISC AY,CK180 BYeCKI7C BYLCK18C 8),CK19( 8),CK20( A) g98A 
S,PK2E0 BY,CK22C AICKKLC By, BYSCKKAC Ar 8) XM(5),X6(53,XSP(5, 9) BORA 


4,°eK3( B, 5) Boar 
COmMmON/EDGCOM,s PE(40, 1)-PTE(40, 19,SPE( 8.40, 1),0UES,8085 
LUFC 453, RADE (40), V4UE( 40), TEC 4%) ,UEDGE, OUEDGE -DQUEDG. V4WE ,HE.C90 B0aR 
2 ,DSIPS 40), I0S1P,TTVC.TYCC( 40) 8088 
COMHON/ET COMET A(15) OETAC15).MS9(14' ,9CUCL4),81014),B2014) B08 
1,1 42153), 841(43,18),842(30218) Boar 


COMHON/HISCOM/C4 ,C20C03,C4. AL PHD, BETH 2404024227266 4.14),79P( 4,14, 8BOAR 
1 99X2040),HF(15,5)s46(15,3) HSPC25,3, 6),HALPH, HUE WHUE,MFW,OLX2 8089 
2,034(40) ETAM( 40) BoAS 

COMMON/INTCOMs KRCZ20) KIN: KOUT »MATII  MAT2I MATIN, MaT2U,NETA, 1,19, "8089 
1S, IT NTIHMEeNSP»NSPAL, MAY NLEGNMLEQSNRNL, ITS /KSPP4,CBAR,CASE(15) B08R 
20B), MWE eNON,KQ( 10), ITEM,NI TEM, KRL7 »NBT,NBT2, IDENT, KR9(40) BOBA 
3, ¥AUXO, JTIME, JSPEC MOC) aoas 

COMHON/PRPCOM/PR(15) 67045) RHO 95) 6S0615) eCAPC(15),OR(15),4018) 8088 
1, CPBARC 153, VhW(15) sPHIK(25, 5) ,GRHOW,NRAHOK( &),ZK( A),DZKHC 8), 98089 
2MUI3KC BD .DMUAKE AILOTK( B8Y,OPHIKHC &),0PRK( 8),0SCK( 8), OCAPCK( 6)B0AB 
3,°MTILK( &),DGRK( 8),0CPBK( &),MCETK( §),DMUL2KC A),O0Z2KK( 8, 8) OBA 
4,"PHIKK( A, 83, QMUSH,OMUSHQHTILHOVMULZ,CT,CTR,CPTIL,HTIL § ©803R 
5,.VMU3,D7H, DCAPCH, DPRH,0SC4,0QRH, DCPBH,OCPTH»/OMUL2H,VHU(35), RHOP B08R 
60645) PHIKP(15) HP» TPeZKP( 8),VMUSP,VMU4P ,HTILPsCRHO(14),GMR(18) BOAR 


COMMON/VARCOM/F (4,25) .663,15),5P(3.15, 9), ALPH 8088 
FIRST, EVAL CERIVATIVES OF STATE PROPFRTIES WITH RESPECT TO ETA 808A 
VYU4P8OMUsHeHP 8084 
V'USPaDMUSHEHP B08a 
HT ILPSONT ILHeHP 8084 
TPeOTHeHP B0Aa 
RUOF (1) SORHOHKeHP R084 
TECNSPM4 ) 401,401,492 808k 
09 408 Ksi.NSPHI B08a 
7KP(K)8O0Z2KH(K)OHP BOBA 
PHIKP(K) sMPHIKHC(K)@HP 608A 
VNU4SP8VMU4POOMU4K (K)@SP( 2.1 0K) BO8aA 
VYUSPRYMUSP+NHUSK (CK IOSPC 2,1 0K) BORA 
MTILPSHTILP*DHTILK(K )@$P( 2,15") A08A 
TPEYPODTK(K)eSP( 2,1 9K) BOAa 
RHOP( 1) #kHOP( 1) +DRNOK(K YeSPi2,1,K) RORA 
HA 408 Jzi,NSPM1 B08, 
ZKE CK) BZKPCK)OOZKK (Ke J) OSPC 2,100) BORA 
PMPKPCK )SPHIKP(K) ODPHIKK(K, )0SP(2, 155) B0Aa 
NEXT, EVALUATE OTHER GROYP'NGS FOR USE AT 1 AND Je4 BORA 


c1iscS ¢ F(3,1) © YTVC 

Ci2 = CS @ CaPC(I)e TTVC 

C14eCieF (3, 1)+HF (1,9) B08A 
CiSsPR(1)-1, BORA 
C1681,/PR(1) A064 


€1791,/8C¢1) 8064 


3014 
302 
SenEw 
4eyEV 
Senev 
6eNEw 
TOnEN 
AeONES 
@eNEY 
10¢eNEv 
LIONEb 
12eNEU 
A3eNEw 
14eNney 
ASeNEb 
LOONEW 
L7eNEW 
L80NEW 
19¢NEW 
20eNE® 
21¢NEV 
22eNEW 
23eNEW 
24eNEW 
25eNEV 
26°NEw 
274eNEW 
2AeNEW 
29eNEL 
3OeNE 
SieNEw 
S2°NEW 
S3eNEW 
0280-34 
02¢ 
030 
631 
032 
033 
034 
n35 
036 
037 
038 
39 
040 
n44 
N42 
n43 
n4é6 
045 
046 


n49 
050 
051 
052 





Ta A ETERER ¢ Ce re ew sae <2 ee 





é 

| € 

f 0n0355 C16xCTRet( J) B04 053 

H F-09060 C198C170C12 a0ga 054 
926041 C26#C160C12 Osa 045 | 
orncez C23 + C13 * C15 eg 
ocnGas C?2 3 C210C29 : 
O.nGss C23 = OCaPC-+scaPc()) 
arages C26 & C26 © (562,18)-CPL0F (2,99) ; 
acoces C758 C20 © C16 © (G(2,1)eC136F (2,19) i; 
3c0047 C26 s RHOFCIS)/RHOLTS * 3 

denon C78 s CiZ2 © FC3,5) * 
O700ES C31 8 RHTILP-(CPTILOCT/VMULZOCTRISTPSCL§ © VAUSPO(HTILoWI fC TRe ‘ 
aror7¢ 1 vmU3e T(1)) svMU4sP 3 
Bla rern | C32 3 C-FC2,120C{34TP/PR( 1) SCPBAR(S )*C31/SC21)) © C12 - C3eGR(1) + 
0c0c 72 1 eTTVC ; 
940073 C438C240C23-C250DPRH-C3eNGRWETTVC 

ocn076 CS3sHWOP( 1 )/RHO(T) : 

; oro075 C36 & FC2,1)/4LPH ' 

é 300676 C73 # Ci @ FC2,1) 

9n0077 C74 s C11 © C10 © OCAPCH + C16 

{ ncN076 C75#C11¢0CAPCH 6084 100 

i acnn79 C762C19C66461) 8084 101 
acaruc C77#-C224C430C10 
araney C782-C700C15¢°eCiN 

| ocnos2 C799043 

t onocs3 TAGAC20 
oonoss C%18°0286(C100C56eC2734C5) 
0c0085 C828-C200C596( 2,1 143 ,00C220C54-C430C1N C56 

> ocoobe CA38C286C14 © F(2,13 

; on0GF7 412 CA48C3206(1.1) 9544 608s 109 

: onc0ss CAS & -CO/RHO(15.226/2, 

| 00NGES C262C85eC10eDRHON 
ocn090 CA7SBETASALPHOC26*C860C56 

: nee: CRSOCASeORHOn 

i ornc92 DUM4#C23-NSCH/5C( 1) 

‘ = ococ93 TECNSPM1 403,403,404 BOKA 230 

: 0900494 404 OM 406 Ks1,NSPMY 

: 000095 CK3(K) & DCAPCK(K)/CAPC(I) 
000096 406 CK4(KISCK3CK)@DSCK(K)/8C( 1) 
000097 DO 410 Kst,NSPM1 
aonoys OUM28C19 © SP(2,59K) 
000099 CK1(K )8C240CK3(K ) -C2S5@DPRK(K )eCSONQRK( KI @TTVC 
090100 CK2(K)80, 

: 000161 CKS(K)80, 

t 000102 DUM3eZK(K)-SP(25 10%) : 

: 0001C3 CK6(K)8C190( ZKACK) +VMU4PeDUM3) 

; 000104 C¥9(K)® OUM2e0UM2 

i ocoies CK13(K) SCASDRHOK(K) 

{ ocoite cx14(K)sQ, 

' 060107 CK15(K)aG, 

t o00108 CH16(K)20, 

} 000109 CK1L7(K)8CL10DCAPCKIK) BOSa 125 
000310 CK1ACK)8C19SP(1,1,K) BCAA 126 

i 00111 CK19(K)8CK9(K) C10 

; 000112 CK20(K) 26, 

; 00113 CK21(K)8=CK19(K)@C36-DUM2/ AL PH 
060114 414 CK220K) BCK6( KR) OSP( 10] Kd 0CLS BO8A 130 
000115 £9 410 KXei,NSPMY ANea i131 

i 000116 CKK1CK KK) 8C190(DZKK(K KK) +OUM3@94U EK (KK) ) 

t 000117 CKK3( KKK) SDPHIKK (Ke KK) 
ocoiie 410 CKK2(K, KK) 80UMZ@CKG(KK) ‘ 


{ 
i 





0c0129 
onoi20 
nroi2% 


403 CONTIALE 
AETURN 
ESD 
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6084 135 
BpOea 134 
BOAa 137 
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c. Plow Chart 


Finer. ert be TEOSTUNTIVES OF STATE PROPERTIES HITH RESPECT TO ETA 
Pua, 


TReOTHOHP 
RHOP C7) -ORHOHCHP 


¢ 13601.4901.902 
LY 


KeHP 
VIN P= VIL KCK eG C2. 3.K) 
VAGUS Pe VLIDF-+ DIGS KCK o8P C2. 2. K> 

b/ LRCK> OP (2, TKD 
Tp KoeP<Ce.7.K> 
RHOPCI) T>4DRHOK (KD 06PC2. I.K> 


NO 408 Jal. NOPH 


2KPCKIe2KP CKD 40 


sree sTD? 
Ci3¢F 62.39 


@ FC 
LPe- ies © VRUBPSCHTIL-HCI4CTRe 
VMUSe TCID> eVMUS 
sw (-FC2. IDOC 12+ TP/ PRC I OCPRARC I 4CB1/BCCID> © Cie - CROORCID 


Cc 
S=C24eC29-C2SeDPRH-C34DORHETTYC 
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806 CRE CK mCKB CKD -DSCK 














i capett vege te) C2UODPRKCK>=C8 2005KCKDSTTVC 


CKEC R00, 
DUMD@2KCK>-SPC1.1.K> 
Cee eae Ba UN ReOLE 


CKSCK}= 
CKL8 CK) = COS ¢ORHOK<(K> 
CKLS CK 


CKIS<K)«0, 
CK16(K)=0. 
epibccseniaaeen Cee 
CKiS CK) aCe sist 2K> 
CREEK) =0, e616 


cd Nb $<K>00S6-DUNE/ALPH 
ois Cxee ipa K>45PC1.1,K00C18 





DO $10 Kiel NEPHY 


| CHK CK. KK) "C186COZKXCK. KK +OUNZ OOMUSKCKK > 
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CKK3 CK. KK =DPHIKK(K. KD 
RETURN 
END 
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9. SUBROUTINE RECASE ~- BC9A 
a. Function 


Reads in most of boundary layer input data. 


-96- 


Called by SETUP. 


+ matty FO he eet 


no te AB edie esto AAR ate en Sameera 





Sie em 


W0C%) 
ocact. 
arqgan3 
orogu4 
ocants 
ATO & 
ALOE? 
organ 
araary 
c7aoie 
of0011 
OcOdLe 
.Oy1S 
9 -0n14 
a onts 
oconalé 
C0917 
NcCaoir 
oran1g9 
oonaec 
anode. 
Nc0022 
07,0023 
100024 
oc0ned 
070026 
060027 
elekrleraa) 
Cno0uZ9 
066030 
OCaGSL 
ornasé 
000033 
00n054 
690035 
000056 
0cn037 
6n0G36 
000059 
oer. 20 
vfiN4s 
ocnase 
ocnc4ss 
o00c+e 
onno4s 
990046 
oron4?7 
000n48 
000649 
ocooso 
ocans1 
0002 
o0no053 
000054 
onnoss 
000056 
ocon>? 
OCHOA 


b. 


Listing 

CHNOA 8094 
SURROUTINE RECA&SE RO9A 
COAMON/CRECOM/ACARR DENTS STEFF, AMI, ADUM, COUM,HTEF ,HMAT,EMISC,EMISTROOA 
1,¥PG, ASUC 3) RSC 3) HPYGC3),HCHAR( 3) ,EYIVIS) KS(40),1S5U 6094 
COMMINZET ACOA 7ZETA(15) DETAC199 28 9(94),9CU(14),810146),82014) BO9A 
1,LAR(153), GAL( 43,14) a2 30015) RdGa 


QABGNHAAND 


COMMONS TE. TCOMS KIC 20) KINA KOUTSMATLY MAT2Y MATIJS, 4AT2UNETAL 1, 1S, NB0GA 
LS, IT NTI thy VSP NSPMS HAM NLEQNSLEQJNQNL, ITS, KAPPA,CHAR,CASE(15) 8094 


222A), MEE, CON, KUCLO), ITEM, NITEM. KA17,NGT, NETO, INENT, K29( 40) BOG 


3,”auX0,JTIME, JSPEC.4D(3) g09a 
COMMON/PRMCOM/TIMEC 59) PRECEM) ,PTET( 52),GEC 50).8(40),ROKAP(40) BOGA 
1,RNOSF Ve AP ROTSC,TDISCO4C) MSOCLN)MSO(IC) ITEC 5Q),TPRE-RANNO, BOGA 


2CANE sHANFIL.( 50),840R(40),RANS (40), 1540 8094 
L FORHAT( 277121584) CN9a 
2 FARMAT( IZ) BO9A 
3 FORSATCT2/04E10,4)) AN9a 
4 FORMAT(14114X56HBOUNDARY LAYES {NTEGRAL MATRIX PROGRAN CALIMP) BO9A 

1 J PBX 47HAEROTHERM CORPORATION, PALO &LTOCaLIF (RMK,EPB) BO9A 

1,2x346 //4X, Su 


> 
6 
7 


y 
10 


3 
11 


12 


13 
14 
18 
15 
16 
17 
20 


2CASE 915640//7,Aa%,7SHCONTROL NEMRERS 1 2 3 4 5 6:7 8 9 10 BO9A 
341 12 13.14 15 16 17 18 19 20,/7.23%,2013//8X14HPUNCH CONTROL = / 6x 
442MPDENT JSPEC/1COXA2,7X12/) 


FONMAT(AF 10,4) ; BO9A 
FOHMAT(12,E20.4) ‘ BOOA 
FORMAT(/9X20HVISCOSITY LAW = “MU. (£10.30 4HOT@OE SS. 3,35H)/(E10.3,3HOTBIOA 


24610, 3.4H)//9XL9HENTHALPY Law" y THE10.3,$H*E10,3, 4HoHSeE10,3,1HSB09A 
2L4A2K2H( (610032 7HOL. ONSEN, SePHYOV( SL /EELOe Ss SHO1.))//9XLIHPRANDTBO9A 


3L NUMRER PREELIG, 3, 1H+E10. Se 4HOTOVESO, 3+1HFE10, 3, 4HOTe0E£11,3/) BO9A 

FORMAT( 2111) BOOA 

FORMAT = (/s20K79HU/UF TO NGMAL PT, GAMMA «MOLECULAR BO9A 
1 we /9Y7BHNGRY, ETA AT WHICHISX40HWE IGHT B09A 

; /LOYOHETA NORM, ) BO9A 

FORMAT(344PE10.3,9K12.0X9E10.3/(30X9E10.3)) 

FORMAT (7, 5X7GHU/UE TO NODAL PT, B094 
1 ETA VALUES SAK23HNORM, ETS aT WHICH BA9a 
2 /L9YOHETA NORM, ) O94 

FARMAT (/2X,15HNOSE RADTUS.FT »tPE12.5s5Xe16NCONE HALF ANGLE ,1PE1B09a 
12,.5,84 DEGREES) BO9A 

FORMAT (/,1% + 23HTIME, SEC 21P8E12.5/(24X,1P8E12.5)) BO9A 


FORMAT (/,1X,23HTOTAL ENTHALPY,BTU/LB ©1P8E12,.5/(24%,1P8E12,8)) B09A 
FORMAT (/,1X%,2?3HCASE »1PB8E12,5/(24X%,1P8E12,5)) 
FORMAT (/,1X%,23HTOTAL PRESSURE, ATX o£P8E12,5/(¢24X,1P8E12.5)) 809a 
FORMST( 42,132,116) 

FORMAT 3/,1X%+23HINCIDENT RAD FLUX. B/SF2+1P3E12,5/(24X%,1P8E12.5)) 
FARMAT(/,1X+S6HSURFACFE RECESSION - WALL TEMPERATURE RELATION FOR T 
TEFLON//5X,43HSURFACE RECESSIO" QATE, , B/SFC FTQ & EXPC((,1P E12.5, 
26H) eTHH(,1P EL2,.8) 7H) aT eC oth E12 5A). //BXeSTHWHERE Te TS WALL 

3 TEMPERATURE IN DEG R) ‘ 

NOTE. 2 €R(5)84 FOR EQUIL,3 FOR FQUIL KITA ENTROPY LAYER, 1 B09a 
FOR WONEQUIL, AND 2 FOR NONFQUIL WITH ctITROPY LAYER,. ROKAPs% FOR B094 
PLANAR... (KR(6)241 AND 3 FOR ALI'NT anO S'IARP, RESP) and [8 EQUAL TO BO9a 


OISTANCE FROM AXIS OF SYMPETRY 70 BODY SURFACE FOR AXISYM,,. BO9A 
(KR(6)50 AND 2 FOR BLIINT AND SHARP, RELZECTIVELY),,.. KR(7)20 FOR B09a 
MUL TTCOMPONENT ByL. ANDBL FOR HOMOGENEOUS B.L..IOISC#0 FOR NO B0%a 
DISCONTINUITY AND UNITY FOR OTSe, IY ROKAP,FW, OR RNOWVW 8094 
OaTa 002)/4H / 


CALL DATE (9,MD) 
eeu TAN ( Lah. WA) 


001 
002 
SeonEW 
4eNEw 
SeNEW 
4aNew 
7ONEW 
feNEw 
GaNEw 
10*NEw 
11¢NEwW 
L2eNEY 
13« NEw 
Oidey4 
N37 
OLA 
019 
oar 


022 


26 
027 
028 
029 
030 
031 
032 
N33 
034 
n35 


037 
038 
939 
040 
nag 
n42 
n43 


n44 


046 
47 
048 
049 
n50 
nS1 
32 
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, 
i 
1 5 
‘ j 
: 
e 
4 
4 
| 
ocn0o9 READCKIN, 4 KR, CASE BO9A 953 \ 
000060 AHEAN(KIN, 16) IDENT, JSPEC, JTIME 
oconss wT TECKOUT)4) HD» CASE.KR, IDENT» JSPEC i 
O50Ne?2 «A(9)80 
NGode3 TELERCGI-A) 245,2402245 i 
nonoes 240 KACO) 8-4 
nrn265 KE(6) Sq 
050606 GA TO 285 4 
090067 245 TECKR(6)~-4) 255,2552250 i 
Co00ea 250 KA(9) 81 
010003 KR(6)2KR(6)=5 j 
900070 255 REANC KIN, 24) NSPKS § 
avon74 24 FORMATC12,3X7011) { 
0v9072 NGPMs BNSP of B09A 087 
000973 READ (KIN, 3) NTINESCTIMESIT SP TeL NTIME) B66, OSA 
oroc?4 I TEMONT [ME 8094 059 j 
o00n75 NTIMESS 2094 080 4 
050676 READCKIN, 24) NS,KRO i 
000077 RFAD(KIN,5)(SC1S),1Se4,NS) } 
NCONTA KAUKOSSL ROG 
ncoo79 IFCKR (1497) 303,303,302 ROG ‘ 
or 000 302 KAUXNSKR (24)41 ANG i 
oconss KR (94) 8KR (14) 03 rnc 7 
UCONN2 c COMPUTE INFORMATION NEEDED TO CONSIDER DISCONTINUITIES 8094 662 
ocno#e3 303 vst BNga 063 5 
ov0cHa $02 MSD(2)81 BO9A 066 i 
050085 INISC(L) 84 
oconKe $(4)8ABS(S(4)) 809s 046 y | 
00087 IF (NS-4£) 203,105,102 8094 067 | 
ocooue 102% 9° 402 1S82,NS R094 068 ' 
ocooNg IMISCC1S) 8G BO94 069 4 
ocnoyv0 fF (SCES)) 193,102,101 B08 070 ; 
orag9! 103 NSOCUEIS-MSO( IL 8094 973 ‘ 
ocnnge2 $¢1S)8-S(18) B0¢4 072 } 
ncoo93 IDTSCCIS) 94 8094 O73 E § i 
Anoov4 Jaded HO9a 074 3 
000095 mS0( 0281S 8094 175 | 
060096 191 CONTINUE B09 076 i 
090097 195 NSO(J)8NS-MBD( J) o4 809A 077 ‘ 
oconyA NOISC8J=4 B00, 078 j 
acso99 IF CKRC3)) 1051,4054, 1052 B094 080 } 
0c0100 1052 READ (KIN,3) NETAQCETACZ) Tad oNE Pa) Bd9A 084 
ocoics READ (KIN, 6) KAPPA,CBAR B09 079 
0c0102 1051 CONTINUE 809% 
oonsn3 665 WRITE CKOUT. 14) BOPa 092 
000104 WRITECKOUT,@) CBAR KAPPA, (ETACS).184,NETA) BOGa 092 ‘ 
000105 606 SECKR(6)=4) 203,203,204 BOA NOS ; 
100206 203 REAM (KIN,5) CONE, RNOSE BO9a 094 
. 000407 204 TFC LABS(KR(6)-2)01) 297, 2080207 BPs 095 
0001u8 207 RFAN (KIN, 5)(ROKAP( IS) +I1S82.NS) BO9A 096 
000109 IF (NS-4) 234,236,2071 B09a 097 
000110 2074 11Se2 BOGe 098 
ocoii1 LNZe4 B00a neg 
000112 /EREROKLP(1)) 223,226,226 B09a 100 
000113 227 RaDNOs-ROKAP(1) B09 104 
000414 | WRITE (XOUTs 12) RAONO.CONE 8094 102 
0001158 ROKARCL 8G, B09a 103 
000116 00 229 1Sai.NS 
000i17 TECROKAPC15)) 224,224,225 p09a 105 
ocoii1a 224 1FCKRCGD) 274-271,222 B08s 106 


=98- be 








Sl ea al el ta ete ae cette ae ooh mnerlan titi nee me hana ne acide eine ee etiaih oth eiietiia ade ieee da td des tein hice’ ad han | 


ehh Here @ 


, 
: 
i 
+ 


oc011¢ 
eor1ec 
aco121 
CCOi2e 
990123 
ccon126 
arcey2s 
aceissé 
0001327 
Groigs 
C0129 
oco15¢ 
oc0133 
ocn432 
010133 
ocoi154 
090155 
0n01 56 
NcO1s/ 
oonyse 
060139 
990143 
000141 
000142 
000143 
000144 
070145 
OCA 4A 
300147 
nced143 
060349 
990459 
90015) 
ocN1d¢ 
oce153 
070154 
000195 
DGG156 
0c019/ 
O0C0154 
909159 
000160 
000161 
000162 
900163 
0c0164 
OCO105 
000166 
000167 
OCOL6s 
000169 
oco17c 
OCO171 
000172 
000173 
000174 
000175 
oroi47¢ 
000177 
000147h 


222 


221 
229 


225 
2251 


2276 


227 
224 


ROK AP CIS) BSCISPOSINCRALNO/S7, 298578) 
69 10 723 

AKAPCIS) sRAPNOSSINGS(C1S)/RA0%0) 
CONTINUE 

o° TU 234 

1© (1S-HS) 2251,234.234 

yISz[Set 

L'zs}S 

YA233 ISSLIS NS 

1ECROKAPCIS)) 233,233,227 

IF CtS91-L5Z) 232,232,224 

LVZaLN241 

ROK APCLNZ )SROKAP(LNZ=2 CSCLN7Z )@SCLNZ=4) /(SC IS SC LNZ=1) oC ROKAPC 


115) -ROKAPCLNZ<1)) 


232 
233 
234 


208 
209 


210 
14 


196 
197 


192 
19% 


193 


199 
494 


195 
196 


1k2 


2200 
2291 


220 
2202 


£9 TO 227 
Lvzsis 

CONTINUE 

v«sPsi, 

61 To 240 

09 209 ISateNs 

KNKAP(IS)381. 

vv aPsO, 

COMTINLE 

STEF ® ,4A1£&-12 

IF CKROD)V=3) 497,193,198 

IF (KR(9)=4) 193,193,197 

oo 49% JzLeNs 

1 (CKROCUI“3) 191,193,192 

TF CKROCJI~4) 1926193,191 

CONTINVE 

Gn TO 199 

RFEADCKIN, 24) CEMIVOT) ,HCHARC]), HPYG( ET)» Tele) 

REANCKIN, 22) (ASUCT),BSUCT), 1284.3) 

FORMAT( 644) 

FORMATS 9E8.3) 

FORMAT(/1X39HQUASI@STEADY ENERGY AALANCE AT THE WALL//5X14HSURF ACE 
1 UMBER2Z8X1HVL4SXLH2L4X1HS/SXA7HSURF ACE EMITTANCES7KXIPSEL4, S/5X34HE 
2NTHALPY OF CHAR AY REFERENCE TEMP3E15,S/SX34HENTHALPY GF PYROLYSIS 
3. 64S (BTU/LB)3E15.5/5X27HEQUILIBRIUM SURFACE SPECIESSX3(7xX244)) 

WRETECKOUT®/ 19) EMIV. HCHAR, HPYG,(ASUCT), BSUCT), f#4.3) 

BE CKRO9)@5) 194,196,196 

00 195 Jeq.N§S 

If (KROCU)9$) 1955196,1%6 

CONTINUE 

G9 70 4a2 

READ (KIN, 3S) EMIST,HTEF.ADUM,B0UM,COUM 

WRITE (KOUT,20) &OUM,BDUM,COUM 

WRITE (KOUTL/19) EMIST,HYEF 

READ(KIN SICPTETCIT)ITSLe NITEM) 

READ(KIN, S)(GECIT) +1 TegeNITEM) 

READCKIN, SICRADFLCIT), [Tai NITEM) 

TECTIME(1)) 2201,220,2720 

TIME(1)=-TIMECL) 

WRITE CKOUTLOICTIMECL Pad. NITRM) 

TIMECL)B<-TIME(L) 

on TO 2202 

WRITE (KOUTA ZSICTIMECT os TSL NITEM) 

WRITE CKOUTI1420 = GECT) eT et NITEM) 

WATTE CKOUTSASICOPTETC IH pT ea eNiTrey) 

WRITE CKOUTS A 7) (RADFLOIT) Ted sNITEM) 
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80948 107 
B09, 108 
BO9A 109 
R094 110 
ANG, 141 
8094 112 
BMGs 113 
899s 114 
8094 115 
B09n 116 
B094 117 
8094 118 
8004 119 
8094 120 
8094 121 
8094 122 
8004 123 
BOA 124 
BO9a 125 
809a 126 
B09 127 
BO9s 128 
BO9A 


BO9a 131 
8094 152 


B094 137 
BO9A 139 





samcihe Set Ate 


2 





aud 
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BO9A 140 
ACOA 144 
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RETURN 
t*b 


060179 
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Nod 
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CKIN, 8) NTIME, CTIMECIT). IT#i,NTIME> 
#eABSC8C1) 


C3 ai 
KRCS 2 #KR(5 9-5 
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CCl d= 
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RRCOD 24 
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1021 06 101 IS=¢. Ne 





IFCSCIS)) 163.161.1021 


8C I 
IISc CIs >«1 


JsJe1 
NODC 21S 





108 NODCI)=Ne-TOCI)+1 
MOISC2J~1 


IF CHRCLD> 1951. 1051. 1052 


READ CKIN. 5) NETA. CEIAC]). I=1.NETAD 
READ CKIN. 8) KAPPA. CBAR 


11> 
8) COAR.KAPPA. CETAC ID. Imi .NETAD 


4 
id 





rou t\abe 


ce eres erereennee cent = = wn ee eeewEP INS DUE 


a ee. 
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EEE TR END RR Pathe Ry ee Eee: OEE TEENA, SRNR RO RRNETET EYED ARNG), 
w 


4 : ‘ 

; 

z 

20? READ (KIN. 5)<ROKPCIS). 1501.05) | 

’ 

H 

IF (NS-1) 830.834.2071 ; 

8 . 

{ 
i Fi 11s—0 4 
UNz=s : 

i 


' IFCROKAPCL)) 223.226.226 


223 RADNO=-ROKAP CID 
WRITE CKOUT. 12) RAONO. CONE 
ROKAPC 100, 


a | 
s . 
oF CROK S)> 229. £24,285 


224 IFCKRCED) 221.221.222 
om 


SEP ROKAPCIS)=S (1S OCINCRAONO/ST 295708) 
| 60 TO 225 


CET TTT RRARETTETTRDET — 


a 


223 CONTINUE 
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199 IF CKR(S)-4) 193.183. 19° 


cere ee ee ee 


198 GF CKRSCJO-4> 191.198. 191 


1D 


on 
oo 
. 
al 
J 
=? 
. 
~ 
Cod 
boa 
. 
. 
on 
wa 
cy 
ow 


EATY 


> CRSUCTD.BSUCTID. T01,3) 


So-5) 194.196.1356 


C92-52 195, 186, 196 


F¢ 


196 CONTINUE 





60 TO 182 








II 
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, a i 10. SUBROUTINE HISTXI - B1lOA 

j 

i a. Function 

f 

; 


Computes terms involving derivatives with respect to XI (i.e., non- 


‘ similar terms) and stores those upstream quantities needed for these difference 
~@lations. Called by SETUP. Calls TAYLOR. 


i 
4 
‘ 
4 
j 
i 
3 
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7 
b. Listing t 
occots chins BtOa 004 : 
ds0002 SUBROUTIVE HISTXI Bios 002 : 
ovoons COMMONZE TACOM/ETA( 15) .DETACL5) NSAC14) NCUC14) REC14) B24 4) Bids © 3@NEW } 
ocoous 1,0 4R¢153),BA1643,189),RA2030013) BiCA 4*NEW ' 
ocnous COMMON HL SCOM/C1,C22C3,C4, AL PHO, BETA, 2M(4,14),2604,16),28P(4,14, ABL04 SONEW : 
000006 1 90X1040), HE (18.5) HG(45,3) eHSPC15,3, B)HALPH,HUE,HHUE-HFHeOLX2 8104 60NEb ' 
Acnoc? 25059040), 8ETANC 40) , 8104 7e®NEw 
ootnn4 COMMON/INTCOMs KRO 20), KIN KOUT, “ATLL MAT2TMATIJMAT2U/NETALS,1IS,NB104 8B ONEW 
oscong 1S, 1T NTINCeNSP»NSPML,IAM,NLEG,NNLEG,NANL, ITS, KAPPa,CBAR,CASE(15) Bi0a 9eNEW 
or0o10 P,AQCA), MWE KON» KQ( 10) 0 I TEM,NITEM,KRI7/NBTNBT2, ICENT,KR9(40) B104 L1OeNEW 
0c0011 3, KAUXO,JTIMF, JSPEC»MOC3) Bi0a LL9NEW 
o70012 COMMON/PRICOM/TIME( $0) ¢PREC40),PTET( 50),GE( 50),5(40),ROKAP(40) B1NA L2°NEW 
900013 1, YNOSE, VKAP NO ISC,ITOISC(40) NED(10) MEDC LO) ITEC SO2,1PRE,RAONO, Bi0A L3NEW 
000014 2CONE ,RADFL( 50),RADR( 40), RADS( 40), 1RAD 6104 14@NEW 
000015 COMMON/VARCOM/( (4,15),6(3,15),5P03,15, 9), ALPH Bi0a 19¢NEW 
bootie NIMENSION FOC4),6D04),SPQ( 4) Bida 0186-48 
090017 c INITTALIZE AXPAL VARIATION TERMS Bida 019 
000018 NUL SO B10 020 
oconig IF CKR(6)-1) 400,400,401 B10a 021 
oceaec 400 1F (38-3) $94,153,153 B10 N22 
oconz4 401 1609502)454,153,153 Bids O23 
000022 153 IFCKRO3)-4) 354,143,143 Bioa 024 
acoo2s 443 OLXISALOG(XICISI/XI(1S-4)) Bina 025 
neoo24 $F €KR(6)e1) 402,402,403 Biba 026 
on0n2s 402 IF (15-3) 194,195,157 Biba 027 
oc0026 403 JFCIS-2) 154,155,137 Biba 024 ; 
ootG2? 157 TFCKRC 3-9) 15451550146 810A 029 
000026 154 0780, Bioa 030 
oc0029 180, Bina 931 
ocoosc 0725, B10a 032 
ocoo3s1 TFCKR(Z2),LT.0) [Se-KR(2) 
000032 TECKRC2),LT.09 TOISC(1S)e1 
000053 waNETAWL 8104 033 7” 
ocoos4 Of 440 Ie1.% B104 034 
ocho3s5 0% 420 Jsas4 B1oa 035 
000036 Z"C Jet) 80, 8104 036 
000037 439 DO 140 KeNUL,NSPM4 B10a 037 
oongsa ZSPC Jed oKI80, Bi0a 036 
0000359 446 CONTINUE 8104 039 
000040 D1 144 Ie1,NETA Bioa 040 
000041 dO 442 Jsied B104 04% 
000042 HEC T,J?80, Bida 042 
000043 157 00 142 KstUL,NSPMY Bioa 043 
000044 HSPC Ye J2K)80, Bioa 044 
oro04s 442 CONTINUE 104-045 
00n046 HET, 4)20, 810A 046 
000047 141 HECT,S)av, aioa 047 
000043 ALPHO20, Bioa 048 
ocon4s? HALPHSO, Bioa 949 
ocoosc OLX280, Bio4 050 
ocon>. 60 TO 130 Bioa O54 
ocondse c COMPUTE TrO- OR YHREE*POINT OLFFERENCE RELATIONS Broa 952 
Oco0d3 265 0722,/0LX1 Bioa 953 
000054 nieep2 Bt0a 054 
000055 0280, Bida 055 
000054 GA TC 145 8164 0346 
020057 144 gelOISCi1S-1) Bi04 037 
N00NDA 1F( 121,121,155 Alda 056 
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Hes as ere At 
i 85 
Heb earerpecsenoess ’ 


000059 
ocnoea 
00b0e1 
N02 
O0cO063 
PT ROb4 
arnc065 
000066 
ocnose? 
NN0044 
ocone9 
neoo7c 
onoo714 
000972 
000073 
OGUG74 
000075 
Ofr0074 
000077 
000078 
900079 
aonnko 
Onno, 
annase 
OOONAS 
agagua 
acacss 
NCOOK6 
000G07 
OCNOUs 
ocaong 
000090 
ncooys 
ocno92 
osonys 
000094 
ococ9s 
000096 
000097 
OCORYA 
ocnays 
000190 
aceo101 
006162 
0001C3 
oc0104 
oe0i1cs 
OCOLL6 
000407 
000106 
000169 
000310 
000132 
oodile 
9001:3 
0.0114 
000415 
600116 
000117 
GOO11A 
600119 


PO OTE NOTE LE TL oe 


471 D720LXL+0LX2 BLOA 

N1t@DZ7/ (YLXLOOLX2 eZ, 610A 

> D2BOLXI/(HZOOLX2 202. Aioa 

0782-01-02 BioA 

145 OLX2s0LX$ Bi04 

ALPHD#D1 @ALPH+eD2eKALPH BioA 

HALPHs ALP! 6104 

17Z FV) aCiek (4,4 4 P2aHF (1,4) BLOA 

G03) 301960 3,4)4020HG(1.3) * Rida 

NO 147 1s7.NETA BLOA 

FRCL) 80LEF (2.1 +C28HF( 1.2) 8104 

FO(2)sD010F (3,1 )4N20HF (1,3) 6104 

F%(4)8F0(3) 8104 

FOC3)80L0F 64,1) +D2¢HF( 1,4) B104 

CALL TAYLOR(DETAC I <1),F0(2),FM612,2M(4,T-4)) B104 

GP(4)80196(1.1)+020HG( 1.4) 8104 

602) 8010602, 1] 4h2eh6( 1,2) Biba 

G8(4)860(3) ALOA 

GN(3)20106(3,1)4+020H6( 1,3) BL0A 

447 CALL TAYLOR(DETAC 3-1),6062),6N014),2661, 1-4)? B1i0a 

TE CNSPML) 162,162,166 B10a 

166 DO 151 Kei, NSPML , B10a 

SPD(3)8010$P(3,1,K*D2eHSP(1,35,K) B10a 

Of 154 Is2.NETA B10a 

SPDCL)sNLaSPC 1.1K ONQOHSP (140K) Bi04 

SPN 2)8NL9SP(2,1,K eO2eHSP( 1. 2.K) Bio0a 

$°D(4)28P5(3) BioA 

SPD(3) 201 eSP( 3,1, KI +D2eNSP(T,3,K) 8104 

252 CALL TAYLOR (DETACI“1),SPD(2),SPO(1),72SP(1,1-1,K)) B10a 

Ce---"SkVE HISTORIC VALUES B10a 

162 99 164 IsqeNETA Bioa 

HEC 1, 4)8F (407) R104 

HFCL, 5) 8NgeF (1,1 eD2eHF (Ie) 8104 

D1 164 Je1,3 10a 

HEC TJ) 8FCUeT) 8104 

HOOT» J) 8GlJeT) 8104 

IFC(NSPML) 164,164,165 Bioa 

165 HO 149 KeteNSPM1 Bioa 

149 HSPC Tp JeK)BSPC oD yK) B10A 

164 CONTINUE 810a 

c COMPUTE GPOUPINGS WHICH OEPEND ON 02 Bida 

130 Cis1,+02 Bx0A 

C28eC1i-0Z Bi0a 

C38C3M(IS) 8104 

BETASBETAM(IS) 6104 

C4sBc Tact B10a 

9904 FORMAT(6X32/8X1P10E10.3/8X8E10.3/: 8X10E10,3)) Bl0a 

1F(KR(17)) 9905,9906,9905 Biba 

99NS CONTINUE Biba 

ARI TECKOUT, 9907) 8104 

997 FORMAT(2X27HDEBUG 15,0LX10+.2"22G,HF HG) B10A 

WRITECKOUTS 9904) 1S+D0LX4,0LX%2.02+01.02, ALPHO,HALPH,C1,C2+C4, FABioa 

LGD COZMC Te Dre JEL Oe T ede SoC IHC LD) Sele Goleta CCHF CI J), Rida 

2 Wt Sotelo 7 CCHOCT J), J81,3),181,7) 8104 

TFECNSPM1) 9906,9906,990° Biba 

9ONB WRITECKOUT, 9909) CC CZSPC 1, deK) Kad ,NSPML), Ji 6) ote 4) CCCMSP( I, y, 8104 

1K), <8L.NSPM4),J84.5),18407) BiCa 

9909 FORMAT(2X13HDEBUG Z2SP,HSP/(2x410F10.3)) B104 

9906 CONTINUE Bi0a 

RETURN 810a 

EO 8104 
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660 
063 
162 
063 
064 
065 
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06A 
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070 
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080 
082 
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083 
0a4 
045 
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88 
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090 
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ng92 
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095 
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nos 
999 
100 
19% 
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103 
104 
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140 
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148 


149 


ti NE AL OR METER EILEEN S CEI 


SNe RR la tA alata 


oN te SEE ee TER oh 


" 
a 


i 





ne a il 





w 


. 


AFWL-TR-69-134, Vol. II 


ec. Flow Chart 


Seca aneerh Jane earners 


c Nae AAS vereteraice TERNS 
wie ; 





| iF CKRCED=1) 406,600,403 











IF CERCED—-1) YOR. 408.9Cs 


402 IF CIS~-3> 184.158. 267 1 


—-- 


€98 IFCIS-2> 186,188.187 


LEP TFCKRCZ—19 158.155. 184 





00 140 Jai.% 
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: 180 KeNUL. NEPAL : 
ZSPCI. TL K=O. 
; DO 191 I=t/NeTA 
if 
‘ : 
me 


E COKPITE TNO- OR THREE-POINT SIFFERENSE RELATIONS 
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185 O0Z=2./DLX! 
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121 at ate ee 
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7 a 
PHOet1 OF PHOS CHA PH 


PH 
1°2 Paves OF C4. LO4DROHF (1.49 
O63 291983, 1 94D20HB6 1.33 










=FDC3> | 
sDLSECe. 12s0RoHF (I 

LOR CORTACT- 13 Fate. FOCI. ZHCL. 1-192 
10OCt 


“at +8C2. Esper 2 


«2 
108¢3. 1>4D8eHa(T.3> 








ley AYLOR{DETACI-1>.60¢2>,60¢1). Z8¢1. I~ 






IFCNSPHL> 162.162. 168 


“PO 181 eer tS~—~—S 
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ip 









PD¢1390306P¢(1. 1. K>+D2eHsPci.1.K> 
SPODC2 eH 10BPC2. 1, KI4D2eHSPCI.2.K> 
SPDC§ > @SPOC3 > 
SPDC32sD19EP C3. 1, K>+D24HSPCI.3.K> 








161 CALL TAYLOR <DETACI~1>. SPDC2>, SPDC1 >, 28P C1, I-1 Kd) 


C-—---SAVE HISTORIC VALUES " 


162 DO 164 I={.NETA 








2h 
HFCI, 4) 2F C4, 03 
HFCT.S)=DLer<1. I+DZeHF CI. 12 


DO 164 J#1.3 


IFCNSPHL> 164,164, 165 


1635 DO 148 Kel.NSPHM1 







1¢9 HSPCT.J, K>eSPKN.1.KD 


18% CONTINUE 


COMPUTE GROUPINGS WHICH DEPEND ON OZ ] 















180 Ci=1.402 
Ce~~Ci-0Z 


C3=C3N¢( Ts) 
BETA=BETAMC 13> 
Ci sBETAHC1 
9904 FORMAT CEXI2/ OXIPLOELO .3/8X8E19 .9/(8XI0E10 .3>) 
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WRI rele 9307) 
S307 FORMAT (2X8 7HOERUS 18. ered .» 2M. 29. HF .HO 

WRITE CKOUT. S904 TS, OLX1. OLX2.0Z, 01.2. ALPHO, HALPH, 
1.00. CCZMCT.J).J21.89. an by C2601, 5>. sunhe Bee Tal.¥> 
2° dei.8), 191.72. CCHOCT. J). Jei.3). lel? 
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ll. SUBROUTINE OUTPUT - B1lA 


a. Function 


Prints standard boundary layer output block for converged solution 
or, if requested, at the end of each iteration. Called by BLIMP. 








OcoouL 
ACOs 2 
OLocl3s 
jycaoe4 
ovranud 
Acnoce 
O000t-7 
CACO hin 
ICOO0s 
a¢0017 
Coogi. 
OALe 
ocoo13 
oonois 
AcoGisS 
Nt OC16 
06017 
OCodLh 
2¢0019 
ocnszo0 
00002: 
ouno22 
000c23 
ocoo2s 
oro02s 
ocon2s 
000027 
cn002s 
neonesd 
000050 
On0dSs1 
OL0Us4 
900053 
oo6054 
00N05% 
050056 
0600 57 
OCOGSs 
060059 
0ono40 
onoo4) 
000042 
000043 
000044 
oaoe4s 
000046 
nonn47 
ocncée 
Orngegd 
0cCv050 
ocand) 
oondse 
000095 
ocood4 
oocoss 
0000%6 
000057 
NNOOSE 


b. 


oD -eome = woo 


<0: 70 Rs om - 2 Gor @** 7 wwe —ooreonm™ 
v 

Listing 

CHyik Biia 
es BROUTT A OUTPUT Biia 
oryreSto' Cl Fie) Bii1A 
CoMMONsHLeCOMs «8 OAC 72), FORC JL NSPECFR( 72,18)sm03) LEF (LO) Bira 
T,LEFSCIO) PIEASE,LEF AC i0) Bita 
CAMAONSCOECOYS CR006,07 708269 CLO CLL oCL20C1SCL49CISBALA 


Le ALO e CL? CAR CL9 C20 2K C22 C23 0C24 402510260077 sC280C29 eC 300C31 5 CBI 44 
2390 C33 0634035 C36 1C37 CSR VC39 104000411 C421 643044, C45,C44 C47 CARBILE 
3504996000 C519692 105310541058 10560057 0658105916601 CE1 166215650064, CBIIA 
86% COA COT 1 CEB 1 CO9 CIN CTL CTP 0CI3 0674 007500760077 CIM C79 CROs CBI ALLA 


5,0582.C03,084,085,CE6,087 CHP B1ia 
COUMON/CQECONS CKAC 4Y,CK2C AYCKSC 6) CKAC 8),CKS( 8),CKAC 8) Biga 
1,0K7( 8), CKAC B),CK9IC Bd-CKIDE RY,CKAL6 8)CK12¢ A) CKIA( A) Biia 


2, MK146 BD,CKIS(C BICKIGC A)eCKI76 8),CKIANG 8),CKL9( 8)CK20¢ 8) Biia 
3,K2LC AY,CK220 AYsCKKEC Ay B)ECKKAC Ay 8).XM(5),%6(5)eXSPC5, S) Bisa 


4,CaK3( 8, 8) B1iiA 
CAMMON/ CRRCOM/HCARB. EMIS, STFF , ANU, BDUMs COUM»HTEF HMATEMISC,EMISTBI2A 
1, uPG, ASUC3) / BSUC3) HPYG(3) -HCHARC 3) EMTVC3) oKS(40), 1SU ita 
COMMON/ENGCOM/ PE(A0, 1),PTEC40. 1),SPE( 8540, 1),0UES,B14A 
Lut (40) eRHME( 40) VMUF (40), TEC 49) ,UFOGE , QUEDGE »D2UENG, VMWE ,HE»C90 Bida 
2 ,DSIP(40),10SIP,TTVC,TVCC( 40) Bita 


CAMMON/ EPSCOM/ELCON, YAP ¢ CLNIM, SCT, PRT, RED» OVS» RHOVS PL OPIMs Che Bisa 
LEPSA(15) EPS1 EL (45) .CP1(150290NL1 (153) -DEPS(153) sDEPC, TREF »RETR Alia 
COMMON/ECPCOMs = RIC Tr 2VRCK 7447) ROC M402) REC 7402)RF( 74-2),8248 
1 TUC 72,2)0F F< 71) FRA SECE 74), ATACLN) cATBCLO) ATCOAO) WATCLO)> BiLA 
2 KaTOUC) PRCA 6T7 eKZCL0) Lame ( W1)ePeZeTKC1Gs 7Y,VNC 7L)e Bits 
S UNUC 71,10), 1TEFKR2,HCHANCV yw WTM( TLYOVYY( 749,YWO 7290GGC 7198224 
4 ,TQ(10, 7) EPOVRK»SIGMA,BASMNL, Ria 
COMMON /EGTCOM/SIP HIP, EEL EENL SELIG, COP +IRE+ TER AAs LITS. INoIL TIT, B134 
1 “ODE »HMELT» SMELT, TMAX, THINS MELT» SUMN, SUML »WS, WSS, BX, 1SP2, SPQ, BliA 
2 1SP,KKJ,£VA,SVA, SVC. SVN, SUMC FFF CHF EP ARVs LFCIC SWIG WTL 1 JC» HHG, Biia 
3 COPUs TTIIN, TIMAR L2,L3e BCI) FAC LO) EBL (102 AC 26,16) BB(16)> Bita 
4 1H( 71), ALP(40)FNUC10) ,GAMHE 19), GAME( 10) »SLAMC10) 0Y6 719eRVES, BiLA 


5 CPE 749 ,HHC 722,SRO 729,TCO PLeVLNK( 74),€ 74).PNUS(10)> Bigs 
6 AC{10) ALNK(AG) /AYC10) 180610) BE(10), JZ 4) Gis 
COMMON/ETACOM/ET AC 15) DETAC15) 0S0(14) OCUC14) 81614) 82014) Alta 
1, LAR(153),8A1(43,18),B42030515) Bita 
CONMUN/FLXCOM/DELQW se DEL JW ( fh), DANL (453) DJNL( 253, 8), WALLA Bisa 
1, WALLUC 8), AW, VIKWE 9), PRPWALL Bita 


COMMON/HISCOM/C1,C20C3+C4s ALPHO, BET 264614) 02604514902S9P 64,94, 8BLLa 
1 9eX1040),HFC19,5)HGC15,3) HSPL15,3, @) HALPH,HUE,HHUE»HFW,DLX2 Alia 
203040), RETAN( 40) B1iia 

COMMON? TNTCOM/ KR(20) KIN, KOUT, METLT,MAT2E MATL Oe MAT2J/NETALT, 1S sNO1L4 
1S, 1T)NTIME»NSP»NSPM2 NAM, NLEG,NNLEG)NRNL» 1TS, KAPPA, CBAR,CASEC15) Bila 
2.208), MVE »NON® KOC 10), LTE“ NITEM, KRI7 NBT, NBT2, [NENT KR9( 40) Biia 
3,MAUXO, ITIME, USPECeMD(3) Bilis 

COMMON/ OUTCO"/¥(15) «RES sDELST » THENGY» THMOM » CH» BLOW, SHEAR» CF» SHAPE Bita 
4 sCMC 9), THELEN 9) Biia 

COPMON/PRICOM/TINE( 50),PREC4C) PTET( 50) GEC 5u),S(40),ROKAP(40) BltA 
1, BNOSE» VKAPLNDISCs LD1SC( 40) »NEDC20) MSD(10) 6 ITS 59),1TPRE,R&ONO, BLA 
PCONF RADEL( 50) RADR( 40),RADS( 40), TRAD Rita 

CAMMON PREGON/PR(15),7(45) FRHO( 65) SCCL5) sCAPC(15) GRE15) HC 45) B1i4A 
1, CPBAR615) 0 VMAC15) PHIKCL5S, 8) ,NRHOH, MPHOK, €),2K ),OZKHE 8), NBLLA 
23K BH) CME AYLDTKC 8), OPMIKH: B),DPRK( 8140S s),O0CAPCK( 8)B14A 
S,MHTTLKG F)eDGRK( AYOCPBK( 8). ICPTKE Bd ,CMUL AKO & KK( & 8) 681724 
a, NPHIKK( Ae A), DRUM, CMUSHOMHTILHeVEUL20°7 TR, PTIL TIL =8ida 
5, U3, DT 4, OCAPCH, UPRH, SCH: OGh4, DCPAH, OCPTHs DMU. cn VAUCL5)» RHOP BidA 
Ae SY, PHIKP(15) HP, TPs ZKP( 8), VMU3P, VMU4P,RTILP»CRHOC14),6"R(15) Bilis 
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we a_i EO OOO 


Hat 
602 
NSeNEW 
4eNEw 
SeNEW 
GONEW 
7eNEW 
AaNEW 
SONEw 
LO®NEW 
11 8Ew 
L2eNEW 
LSONEW 
14eNEW 
1S@NEW 
16@NEW 
17@NEW 
4RONEW 
LOeNEW 
20eNEW 
ZL ONE 
22°NEW 
23eNEW 
24eNEW 
25eNEb 
26eNEw ‘ 
270NEW 
2AeNEW 
29eNEw 
SO@NEW 
SLONEW 
J2eNEW 
33@NEb 
SaeNEw 
35¢NEW 
TOeNFw 
S7eNEW 
JeeNEW 
39enEW 
40eNEW 
WLONEW 
S2eNEW 
43eNEW 
44qoNEW 
45eNEw 
46eNew 
470NEW 
4QeNEW 
49eNEW 
SOeNEW 
SLONEY 
S52eNEw 
S3eNEW 
54eNEw 
5SeNEW 
S6eNEW 
S7eNEW 
SANE} 
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ono0s9 CMON/TEt COMZSPLUIMC 8) ,DERC4N) ,OUM¥4 (15) SLOPE(1$) REDUM( 4S) Bite 5’. NEW 4 
Gooosy 1, SDU"1040),S50UM2(40) -FWNUM( 40) YICON( 40), FRCONC 40), ,FWINITOC 1) Blta .veNEW & 
ovoceL 2,XTINEITC 2),0L.8¢ 40) Bilis 610NEW x 
oonne2 COMMGN/VARCOM/F (646415) ,603625)-SP(3,45, 9)sALPH Bi1a 62¢NEy 4 
000063 COMMON/SWALCOM/FW( 40, 1)2,TWO40, 1),HWC40, 1),SPWE A. LS Bl1A 630NEW 3 
onon44 L,P4OVWC 49, 1),FLUXSC 3,442 L),JHOL IT Ww, PEW, TSPwW, PRHC re Bilis o4eNew 7 
onc06s EQUIVALEICE (VNU CI) B1LA O37e%g2 4 
000066 2 FARMATO/6¥10910 ALPHA xt ROK AP PRESSURE Ne Bida 657 4 
OCOUe7 LRFTA FLUX NORe WEaT FLUXES “ox11004 j 
oronse ? (LB (FT) (aT) VELOCITY’ VMALIZINBiLa 959 4 
eleLeTeKny 3G DIFFUSIONAL Tol ENTH RERAD GCOND />X41 4 /SEC) 3 
060670 4402 (FT/SEC) FP 'RAMETER r 
ocoo71 5¢aTUsSkE7 SQ FT> /5X1P11610.3) 
occon72 2 FARMAT 7 XI109H SALLE MASS FLUXES ELBL1A 069 
900073 TFVENTAL «SS OTFFUSIVE FLUXES (LB/SEC S9 FT) FOR /5X 50H Bite 070 
aG00764 25NE AR ECH RKFY PYROL GAS = CHAR TOTAL GAS 8(1xX244,1%)) 
000075 19 FARMAN (5X SOH(LB/SQ FY) 6114 073 
000076 3 (LB/SEC SQ FT) ) B1LA 074 
000077 3 CARMAT’ *X2P12E10,3) 
orno78 16 F°SUMAT. /6XLO9ONMOM TRANS HEAT TRANS BLOWING Pa@aMETERS ErBilLa O76 
000079 LE *ENTAL MASS TRANSFER COEFFICIENTS, 7EXL10H Bida 077 
000080 OCOEFF, COEFF, (BASED ON CH) FOR RHOESUE@CM (LB1La 078 
opooss 2B/SEC SA FT) FOR /4XS3LHRHOGUESCF/2 8144 079 
occou2 SANOMUROCH PYROL GAS CHAR TOTAL GaS Bita 080 
OCOb’S 4 901X204,1X)) 
Hoones 4 FORMAT(SX410H MOMENTUM OISPLACE EFFECTIVE ENTHALPY REYNOLDS MA 
09v0U5 18S THICKNESSES (FT) FOR /SXIL0HTHBILA 083 

: o000KN6é ZICKNESS, THICKNESS, ROCY THICw ESS NUMBER 
900087 3 75X $94 THETA NELSTaB1ia 065 
oo00ka 4R DISPLACE. LAMBDA PER FOOT A.‘ X204,8X)) 
ocouss 20 FORMAT(2X,4(6X%,4H( FT) /5X1PL2E1N, 3) 
a7 090 D FORMAT(/2X1 7HNONAL INF ORMATLON) Bi1a 092 
ocooy1 6 FYIRMAT( SXOHDISTAS CE 4X3HETAS OXIME, OX2HFP, 7XSH=PP, 7XSHSHEAR, 2XLLHTA 
000092 ATAL ENTH=,3X2HGP, 7XSHGPP, OX6HSTAT!C, SXQNTEMP, SXBHELECTRON/ 

= 000093 25xX94FROM WALL, 23X7H( BU/UE Ss 23X7HHALPY, Ge 2SXBHENTHALPY, 22X9HCOLL FR 
oo0ov4 SENS AX4HCF 1)» 44X9H(LB/FTSG) » 2X8H(BTU/LB) » 2X8HCATU/LB), 2XBH(BTU/LB), 
HNoGnys S2XBH(BTUZI.B), 2K7K(DEG R),4X7H{2/SEC)) 
000096 7 FORMAT(SX110H DISTANCE ODFNSITY, VISCOSITY, RHOMMU SPECIFIC TwBiLa 098 
oovoy? LEQMAL = PRANDTL «=«0—MODIFIZM MOLECULAR RHOSQ*EPS MACH /8X210KFQ 
ocnogn 20” WALL RHO MU /RKOEOMUE, HEAT COND (8TU NUMBERBIga 109 
000099 3 SCHMINT d€1GHT ARHOE OMUE NUMBER /3X110H (FT) (LAa/CU 
0003C0 4FT) LB/SEC FT C (BTU/LR R) /SEC FT R) NUMBER Baia 102 
000101 5 ) Ctta 103 
000102 © FOOMAT C/ZX7BHELEMENTAL FRACTIONS AND THEIR FIRST AND SECOND DERIVBLia 104 
oc01c3 s "JES wITH RESPECT TO ETae/) Sita 105 
000104 12 rORMAT(/) Gita 126 
900105 13 FOARMAT(/  43X21HDISTANCE FROM YALL, 7/045%,2P10E10,3/20X, 
o001u4 1 1P9£10,3)) 
000107 14 FORMAT(6X,244,4X,1PL10E10. 3/20", 1POELA. SH CASKeIPLOE IG. ¥/72)¥.. 
ocnics 1 9€10,3)) 
ocoius 15 FORMAT €15X,4P10€° 3.3/720X1P9E40,3) 
000110 16 FORMAT (/2X14HM0, FRACTIONS, /) » & 130 
000.11 47 FARMAT(/23H SURE ACE SPECIES 1S 244) 
000112 310 FORM: “(42,312,1P6E12,5) Blia 131 
000113 312 FORMAT(A2,312,1P6E12.5/(8X%,1P6E42,5°) Bida 132 
ooc114 313 ENKMAT €A206X%,48A4762NNS)) Biga 133 
000115 DATA TbLANK/2H / 
000116 TYCF(X)B(SONT( AMAXL(0.51.%2, eCOSOR@X) )-1, )/COSOR 
000117 TF (KRC41)-2) 390,300,304 Biza ise 


000118 “10 TFCKH(G)> 302,302,307 Biya 135 





070119 
ceci1eo 
orn2y 
orny22 
anges 
arny24a 
area v4) 
000.76 
aco1 7 
of012h 
oc0129 
160130 
ocois4 
oc01 $2 
oros 53 
ocnis4 
3°04 38 
NLOL3A 
ocoyss 
0t01 54 
C0435 
09014¢ 
oco0141 
OCOL4. 
ooni4' 
OcO14¢ 
9v014s 
AN01 46 
orny47 
or0s4s 
000149 
oroi%c 
000151 
onai1s2 
0CO153 
000154 
000455 
000196 
000457 
000154 
900159 
000160 
ocny64 
oo0i¢te 
000163 
000194 
O01 
000146 
"00167 
neoyos 
oco ty 
000170 
000471 
0n01?2 
900173 
000174 
000175 
000376 
000177 
0001784 


357 
3n2 


3) 


3011 
$712 


$096 


505 
3951 


1994 
190 
gn3 
304 


einen 
210¢ 


1 
212 


213 


203 
7020 


2he 
2024 


2138 


TF CKnCFI92) $C423010392 

maCvaliS,tT)2 Cr8F (16) oHF (1,5) 

Co9seC Seat PHevAVE CIS) 

v'™*yse1,/C03 

OUMeRRAOVS(IS,1T)/C3 

TF (UECTSI91.9) 3912, 3011,3917 

UF C1S)39, 

COnTENLE 

we ALL GSeHALLA/CS 

DFR 3 )SWalLI-nyMeeG6(9,1) 

WALL uCySP)s0, 

t© (RSPM1) 3052,3051. 050 

ar 305 K21,NSPM1 

AALLUCR  BVIKNCK) 

WALL IONS) ZHALLU( NSP )oWALL CK) 

COT IAVE 

DER CA EWCAI/CS 

CERCA IEWISISCS 
VUECHEDER( 1) +NER(2)}-0UM2 
HMesVPECHOLNG, 

TF (DUP 4-FUM2Z) 390101900290 

VYECHSO. 

{ECABS(BETA)=,0061) 393,304,394 
RETas0. 

y(1)20. 

SUF ACBOUEC ISI /(C3@ALPHOALPHOS92, 174) 
ty 0501) 8(CaPC(LCEPSACL) OF CS, 19 0SHFAC 
D0 182 TeeeNeTa 

OVUSCL)S(CAPCCI OE PSAL1) OF (3,3 #SHEAC 
VCD) 8YC 1-4) +CR9@CRHO( J ~1) 

GOONDEVMUE CTS )/PROL)OCAPC(4)/06899G6(0 254) ¢OUN206( 151) 
SHE aARSDUDS(1) 

TE CKRG9)=3) 2401,2102.2102 

B'1SeN, 

RERADS( , 4PLE$12)0(T(1) 004, 9ENIS 
GIITFUR-CAPC(1)/ALPHECPBAR(1)/PR(1)eTPWALL/CS 
WITTE CKOUTLL) ALPHAXICIS) ROKAPC IS) PECIS+ IT) ,UECIS) BETA, OuUM1, 
VALLO.DERC3),RERAD QOIFU 

D4 BRHOE( TS) UEC TS) /VMUE( TS) 

Cus wWALLQ 7 (GCL NETAI@G(401)) 
CFsCaPC(1)/ALPHaVMYE( 15) /C89eF( 3,4) 
WRAITECKOUTSZ) CATACK), ATB(K)s«81,NSP) 
WRITE (KOUT, 49) 

OLN4 8 ALPHOALPH 

O° 203 Is1,NETA 

$P(4,1,NSP)31.0 

SP(2,1.NSP)80, 

Se(3,1e.NSP)20, 

1F (NSPML) 2021-2021,2020 

AO 2u2 K2i,I§P%) 

NO 2ne t21.NETA 

SPC L,I NSP) SSP(CX,TeNSP)-SPC1510K) 
$PC2,0.K)eSP{2,7,K)/ aL PH 

$P (2,1 sNSPISSP(2,T»NSP)=SPC 2,1 eK} 

SO(3e 12K) 2SP C3009) /0UM4 

o°¢3,1,NSP)2SP(3,1,NSP)-SP(3,$5%) 

CONTINUE 

XSP(5 ~NSPISFCLNETAIOF (1,9) 
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ocnisc fHELEM(L)20, 
Ocosy Gr Te 2137 
OCOyK2 2435 MO 2136 Tet,NSPM4 Bilis 
No01b3 2136 XSP(5¢NSP)EXSP(5,NSP)-xXSP(5,73 Bida 199 : 
oroyea 0% 2131 Te1,/NSP Biia 700 ‘ 
090145 Vv iKa bey, B1lia 201 4 
000146 O% 2332 Ke1.NSP Blia 2702 ft 
9eoy) 213E VIKACTEVIKACT ee ALL CK ISYTM CY OCIUCT KK) 6114 203 # 
‘ JOOLKE PLBL VIKACE  SvIKNCT eR ATOT) Biia 204 ? 
OU0LNG 2137 CITINLE a 
ne9190 wPETECKOUTS 3) SHEARS VMECHDER(1)sMER(2),SU42, (VUKWOT),221,NSP) Bi1a 205 4 
‘ Oco194 214 reset UMLeS(IS) ALzaA 206 Fa 
' oro192 CUNFSCH9e(F (4 eNETAI©F (194) )/40 PH Bita 207 4 
000193 DELSTSY( YETA) “DUNS Blia 208 : 
000194 RFDELSEDUMLeDELST Biia 209 ‘ 
020195 THENGYS (DUM3@G (1, NETA) -CA9/ALPHOXG(5) )/(GCLONETAI@Cl101)) Blis 210 S: 
000196 RE THENSDUMNL®THENGY Bits 241 y 
0onn497 THMON SDUMZ=CB9/ALPHOXM(5)/ALPH Biga 212 
900198 HF THE OSNUML © THMOM Bita 243 
000199 NELBNSY(NETA)-CA9/ALPHOF (L,NETA) 
Jo02u0 ThiECwDECPRARC 1) /RHOCL PRHOECIS)/6( 2,2) #CH9e(TCNETAI@T(1)) Blin 215 , 
006201 BL OWs80UMZ/C4 Bits 216 
onn2ue 297 KLOWPG=DER(1),/CH Biia 228 
ocnacz BLOWCHEDEF(2)/CH Bita 249 
ora2n4 PFCNSPHL) 2074,2074,2070 
000205 2970 Of 2071 Ie1,NSP 
; 900706 THELEMC 1) 20, Biia 221 
0c02C7 ozs0, 
onoece O% 2972 kzi,NSP Bits 223 
ooneuy ZS U4 (CUMS OSP CL NE TAK) -CBO/ALPHOXSP(S 2K) /WIM(KOCIUCT OK) 
oodeic 27] THELEMC TL ZTHELEMC TF (SPCLNETA, KH) @SPC 1, LK) /YTMCK OCI ICT, MK) Bila 226 
00211 CLD aVUKWOLI/CTHELEMC DT eWATCE)) 
000212 2071 THELEMC YT) sCUZ/THELEM( 1) 
’ 000213 2074 JECKG(9)) 2975.20782075 
neo2i4 2075 CASORS-TVCC(ISI/VMUE(TS)09, S/C3OFLOAT(KQ(9)) 
ogg2i5 DO 2076 tet »NETA 
ocd216 YCT) 8TVCFCYCT)) 
OG0217 2076 D'NDS( 1) sNUDSC1)#(1,°COSOR#Y(1)) 
OuG21a DELST#TVCF(NELST) 
060219 NELBOFIVCF(NMELBN) 
900220 TumOus TVCE( THMOM) 
00221 TRENGY= TVCF( THENGY } 
09N222 DA 2077 Kal,NSP 
0c0223 2077 THELEM(CK)s TVCFE(THELEM(K)) 
ocoz2s 2078 CANTINUE 
ocn225 WALTECKOUT® 26) CATACK),ATS(K)KaL,NSP) Bi1a 226 
900226 w2ETE (KOUTL3) CF» CH» RLOWPG »BLOWCH, BLOW. (CM(1),121,NSP) Biia 229 
000227 wQ1TE(KOUTS 12) Bila 232 
O002ed PRITECKOUTS4) (CATACK) ATHCK), K 8d) NSP) Bits 233 
900229 eRLTECKOUT, 20) THMOM, ELST, DEt BN» THENGY OUML, (THELEM(K), Ki *%. NSP) 
000230 ang wRITECKOUT, 5) Bisa 238 
0002351 wRITE(KOUT. 6) Bia 239 
000232 OO 143 [s1,NETA Bisa 240 
000233 ¢ COMPUTE TRLE VALUES OF F(I.J) AND ETA Biia 241 
00234 CERC1L)SF (1,0) g 
060255 CER(2)3F(2,1)/ALPH be 
000236 DER(3)8F(3,1)/0U%4 ; 
000237 NER(AV=ENLOS(]) 
900254 JERO9IEGC1I1) 
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9002 459 1ORCS)8GC7,1)/aLEH : 
Onoe4o rer¢72G3el)70U%4 
000741 Qe Task Tac] )eaLPH 
oon24? PENC HITS HLAESEQOPE CIS, IT I/SIQT(TC 19/428) 
ocoes3 qa3 eS TECKOUT, 3) YO] ) RETA, COERCJ), J31,7)5 
oon2e44 2 MCD) eTOL NERC B) 
OrAnadsd ah ETE CKOUF 12) Bilis 250 
050246 216 wh TTH CKO 17) Bigs 258 
ocne4? mr y8@4 f24, ETA Bt4a 259 
O7n244 CONDECPHAPCTYZER( EL eVMUCT) Bitia 260 
920249 MCP eae SC GME (CT) 
ocngso ACHBEC2rP)/ALPHOVECTSI/SURTIGYR( L)/VMv (1) eT 01049732.) 
o00eh) y4 SOLTEC ROUT DIVOT) eRHOC TD) VMUCT) CAPCCT) -CPRARCT),COND,PR(1),SC. 1), Bi4A 261 
9530252 4 whew T)sEPSAC1), ACH 
000753 TE CKRO7).E 9,1) GO TO 193 
000254 wUTTECKOUTIISICY OD se LadLeNETa) Bita 263 
Oroess aQVVECKOUT. &) Bita 264 
070256 C) 201 Kai, VSP Bita 265 
Ocvgs) WITTE (KOUT, 14) t.OaCK) MOB{K), (CSPCL,0,K), 121 SETA) BLiA 266 
0C02>6 a2 Eh Ts (KOUTA, LS3CSPC2,T eK aT BL eNETA) Bita 767 
0co2>9 QNL WITTE (KOUT, US) (SPC3,E Ke ler,NeTad Biia 268 
ocneec 1€ (NSPMZ) 204122041,2040 Biia 
0v0261 2044 OC 204 Kei,NSPML Bits 
000262 0% 204 Is1,NETA Biia 270 
oco263 9P(2,1+K)2SP(201,K)@aLPH Bids 271 
000204 2nd SECS, 1K sSPC Se TK ODUM Biia 272 
960265 2N41 CONTINUE 8ita 
ornere wRITE (KOUT.16) Alia 273 e 
00027 Cf 496 Jet, NSPEC Bigs 274 
oones4 196 wRITECKOLT, 24) MOAC J) MORC IDA CFRC IT), Lede NETA) Bita 275 
JON269 JECRROO) cE ue. ORKROO) EGE) YREITS(KOUT OAT) MOACTSU),MOB< TSU) 
Oroz7C 193 CARTINUE B1i4 276 
ocoe7a 325 WALLGS“WALLQOCS 
ocn272 RETURN 
ocoe73 EMO Biia 307 
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BAR ao ater wbiikecddoneia des 


: Flow Chart 


SUBROUTINE OUTPUT 
ORTA IBLANK/2H / 
TYCF <XSCSORTCANANI CO... 1.42 . @COSORX? 2-1. 9/COSR 


IF CKRCL1><1) 300,300,301 


TFCKRCS$9) $02,202.30? 





307 IFCKRC9)-2> 301.301.302 


ee ee 


302 RHOYWCIS. IT)= CieFCi.1> (1.5) 


¥ 301 CBS=-C3¢ALPHEYMUECTSD 
GUM1=-1./C3 
DUM2 =RHOVEC IS. IT) /C3 


IF CUECISO-1.0) 3012.3011.9012 


$012 CONTINUE 
WALLQ=*~NALLS/Ca 
DERC3 2 =WALLO-DUN2 #B¢1, 1> 
HALLACNS?> #8 . 


| IF CNSPH1> 3051.3051.3055 


$050 00 905 K=i-NSPMI 


HALLI CK aVIKNCKD 


305 WALL <nsP>=WALLY (NSP) -HALLU CH) 
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3631 Co 

DERC1)<6(2/C3 
DERC2)901(39/C3 
YMECHeDER(1)+DER(2>-DUM2 
OUNM @YHECHOI00. 


F COUMS-DUMZ> 1901. 180.180 


190 IFCABS(BETA)~.0001> 903.304.3908 


264 C1780, 
St ic= UE CIS>/ (CZ ORLPHOALPHOS 2 . 
BDSC1)SCCAPCCLSSEPERCLD DOF CS. tien 





F CKR(S2-8) 2101,2102.210 





2101 EMIS0. 


2102 RERMOs( .481E-1229CTC1)3 
C27 pete 357 “1>/PRCLDOTPHALL/CE 
Matte ¢3$> 


aire ts Pn ai el ee (1S. IT>.UEC IS). BETA. OUML. 
212 ORT SRHDE cIEs00E Cresent UECIED 
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ye (EC1. HETAD—3C1. 19) 
CF eCAPT(1)/ALPHEVHUEC IS)/C8$4F (8. 1) 
213 Roe car 2) CATRCK) .ATBCK). Kel. HSPD 
CKOUT. hg 


0S 203 Iel.NETR 


SPC1. 3. 4SP)91 0 
GPL2. 3. NEP =O. 


208 ePCs. 1, KSP)=0. 


F CNSPHID 2021.2021.2020 


2020 OG 202 K=1.NSPH1 


00 202 I={,NETA 


202 SPCa. J. NSP @SPC3. I. NSPD-SPC2.1.K) 


2021 CONTINUE 
ASP CS, NSP) =F C1, NETAD-F C1, 1) 


JFCNSPMLD 2138. 2138.2135 


2138 VIKHC1)-0. +x 
CHCL)=0. 
THELENCi>=0, 


GO TO 2137 
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2125 00 2136 Tei. KSPH1 





2132 VIKNCT > VIKWCT DeMATCID 


2137 CONTINUE 
SHEAR, YMECH, DER‘1),0€R(2>.DUM2. 9 CVJKWCI). Tet NSP) 


NETAD-F (1, 122/RLPH 


REDELS=OUH 1 40S. ST 

THENSY=(DUMS08C 1, NETA)-C8S/ALPHOX8(5>>/ (6C1.NETAD-O61, 122 
Se a area isirice TAP 

RETHMO=0UH 16 THHOM 


rg edb Shas TA pe 1-NETA> 
THCOND=CPBAR (1 >/RHOC1 )ORHOECTS)/6(2. 1 eCB9ECTCNETAD-TC1)> 


BLOM=0Ur2 / CH 
tor Rares en 
BLOWCHDER <2 >/CH 


| IFCNSPHL) 2074.2074. 2070 


Le 






8070 OO 27071 y=1.HSP 







THELER(T=0, 
DUZ=0. 


ae | OO 20F2 K=j},NSP 
j ne ene 
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| BUZ =O + (OCHS OEP (1 NETA KD-CBS/ALPHOXSF(S.K))/WIMN (KI OCIUCI.KD 1 
a) 
{ 
| 
{ 2072 THELEN(T @THELEN(I+(SPC1. NETA. 1O-SPCL. 1. KD) / WINK OGhe C1. KD 
—_—_— or 


CME Ys VUIC I / CTHELEM( I WAT CID 


| 2071 THELEN (I> =0U2/THELEMCT> 


2OPs IFCKQCS>> 2078. 2076. 2075 







tors COsORe-TyCCLIS)/ C8300 .5/C30F ONT Ckacs Dd 
Do 20re I=1.NeTA 
Y(fo=TVCF CYT 


2076 OUDS¢< 1) =DU0SC] 26( 1. +COSOReYC I) 


THEN Y= VCF ( THENGY> 


anes eee ee: 


—— J 


OO 9077 Kea} 














g KOU 18> Sabie g Seas: Kel. NSP) 
rat > CF.CH.BLOWPS 3_OWCH. BLOW. CCMCI>. Tot, NSP) 





“00 183 T=1.NETA 


-125- 





AFWL-TR-69-i114, Vel. II 









VALUES OF F(T.UD> err 
OER 1>=F (1,1) 






$2061. 1> 
689 =O62. 19/ALPH 
<7 382. 1>/NUe 
RETREETAC I OALPH 
OERCBD) oS .BISESLLOPECIS. ITS/SGKTCTCID/1.8> 


Cd>- del. 7d. 





193 -3) YTD. 
i HCI. TCT>, DERCE> 


| | WATTECKOUT, 125 
216 URITECKOIT.< > 
CO 18¢ Te1.NET 
i 








18¢ 28dYC1), RHOCT). VMUCT>. CRPCCT>. CPBARCI >. COND, PRCID. 8CCI), 
1 WHEL). VEPSACI- ACH 


CKR(T> 50.1) BO TO 193 


ECKOUT. 13991). Jol. NETRD 
WRITEXKOUT. $> 
DO 201 K=i.NSP 


LO) MORCK), MOBCKD, CEPCL. I. K>. Ini, NETAD 
WRITE tKOUT, 15>¢SPC2.3,K), 391, NETA > 


201 WRITE (XOU7, 16>¢SPC3. I,K), I=1,NETAY 


| CNSPH1> 2041,2041.2090 
om 
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2040 Do &80¢ Kel. NSPH} 





641 


STE (KOUT. 16> 


| OO 196 J@i.NSPEC 


| 198 WRITECKOUT. 1¢) MORCJ>.MOBCUD. CFC. I>. Jet. yy 


FCKRCS) .£0.9.0A. KACO). £0.49) IRITECKOUT, 17) MORCISU), MOBCLEUD 
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12. SUBROUTINE IMONE - B12B 
a. Function 


Evaluates the coefficients of the (I-1) th corrections for the 


I nonlinear (conservation) equacions, where I is the I th nodal point in the 
boundary layer. Called by NONCER. Calls TAYLOR. 





ocoony 
o5oule 
300c 3 
acno.4 
a590UuS 
ococus 
30007 
dOONLA 
OCUCL9 
ococic 
Ionols 
3720612 
fcoo13 
9c0014 
370*%°.5 
Ar 0n16 
20t:017 
660618 
970019 
ocoozc 
300624 
990022 
acoo<e3 
9500<4 
osroces 
ScC0UcS 
ooen27 
Contes 
OCC!’!g 
900050 
OGCG31 
900032 
ococs3 
3c00s6 
ococss 
900056 
ocnn37 
000058 
390035 
000046 
o0ono41 
0voo42 
3COLSS 
ocnc4a 
000045 
on0c46 
000047 
000048 
00004¢ 
Of065¢6 
9C0Co1 
ocoo52 
9C0C 53 
ocd0o4 
000055 
oc0056 
000057 
ooornte 
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an 


S12¢ 


400 


409% 


2073 
4004 
40n4 


any 


4n4 
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CALL TAYLGR (METAC19I),SPCLe LoL .K), SPC de Lek) XSPCL,K))° Bi2a 


EVAL PORTEON OF ALE DEPENDENT 0» xM,..- AND GROUPINGS EVAL AY I-1 8129 
C72eb Cee PexXM(a) FCS, 1) 0x02) FCA, TIOXMC3) OF 0G, L-2)0KM( 418) 29 
x5) 8XM(5 4072 R129 
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AOL 

3C2 
JeNEX 
@eoNnEu 
SeONEo 
ONES 
7ONEw 
AeNEL 
GONE, 
LO@NED 
1IONEw® 
L2@NEw 
LIONEW 
14ONED 
pySenNew 
16@NEw 
LONER 
LSONES 
L9IONEW 
2OONED 
21 NED 
22eNEW 
P3ONEW 
24eNEw 
25eNEb 
26eNEW 
27eNEW 
2AeNEW 
29eNEw 
3NeNED 
SLONEW 
S2ONEn 
S3ONE « 
J4eeNEw 
35eNEu 
JO@NEL 
SINE S 

N410-35 

N42 

naa 

N45 

$2 

953 

054 

955 

56 

957 


065 
066 
067 
068 
49 
q7n 
971 
972 
o73 
174 


ococs¢ E' LG Led) 35-0 -CH3*C13/2,-COOCI 202 OCF (2, POZA ToL dF (3.10242 


000060 LiPed oF CS PIOZMCS LoL oF (4, Pot e2Mi 4 ped) )) B12a NTA 
Co00e2 MHIMLORC QA, TLeXGCL OFC 3,1 eXG( ZOE Ca, PT) oXGCS ICE CAs] >4 OxKGl a? B1gR 077 
ococs2 MACS) BAGO E DOOM A128 AFA 
000063 SPTemativel 

Oco0e4 ESLOMPL See CASO PEDUr~T)e(FC 2, elSCi stot FCS, 1 e2Gl a, betel (aed ys 

oco00es LZAE 8122 (AD 
000066 Ed TALIOF CA ToL OLE 4, Pat) eCGCi LOZ (Le Toto 2.f eZM( 2-1) e6(3, Bota Net 
oocon6? SpyeZCSs Le 6G03, ,-L eZ 4, $9499) B12A O82 
00068 TE ONSPML) 498,405,496 8122 OAS 
900069 498 OO 407 Kai, SPM4 

000070 “PL eMPL oat 2J 

000071 CML SF ( 2, tOXSPL 1 MICE(S, 1) ONSP(2,KI0E( 4,1 OXSPK 3, KIOF(4, fot )e ¥S9BI25 NA? 
020072 1¢4,%) B1l2F 96a 
200073 XSP(5,K)8xX8P(5,K eDUMY B12R 989 
ocoo74 ENLOMPT 2-0 CKZ2(K OC VECUMLO(F (2.1 OZSPC 1. Lada KI OF 

600675 23, 1)07EP( 2,194 .K ORCA, | AZSPC Sp fmt KOE (A, TLS OZ§P( 4, fot eK) e(SP(1B12a 994 
000076 SePeK POZA re LoL oSPC2, 1 KIOZM( Fe fot oSPCS, 1 Ki e243, Lod eSPLS,$-15KB228 092 
000077 4y024(4,$-4))) B128 N93 
000078 407 CONTINUE 

000079 c EVAL PORTION OF ORIG COEFKS OF aM DEPENDENT UPON PaRam EVal at 1-78128 096 
ogno6d Coecoe ESTABLIS™ INDICES ON VARIABLES 

oooors 405 Wiley 

000082 JENsteo2 

ooo0es 1FPayo?2 

Oo0Gge4 1FUPBNETASI<-3 

0000"5 TEPPPSIFPR+NETA 

oro0bs 1SPNe1 . 
oo0cK7 1SPPel-1 

000088 LSPPPsIFPP+2 

000069 Coase HOMENTLM EQUATION CORRECTION COFFFICIENTS 

ocoosce avCfes,te-CO1+CA7eDE TACT ~1) 

000091 AAC TOS, LEP) so C74OCOBODETAC I -2) 

000092 1FCL°e2) 410.410.4215 

000053 410 aM(le3,2)8-C73 

onoo%e aM(fe3.3.08-C12 

000095 G* TO 420 

000096 415 CALL LIAO ede 143, IFN, @C73) 

0n0097 CALa LAD 1,143, 1FPP,-Ci2) 

000098 426 CALL Lidccede 13, [FPPP 2.6169 © KM(4)O2M( 4, $2199) 

900099 LPT eLSPNemMAaTgy 

0001300 04 450 KaNUL. NSPML 

006301 1F(K) 425,428,430 

onoite 425 Di IMisCOBODETAL $04) 9078 

ooo1c3s QuM2s0, 

000104 GC TO 435 

000108 430 DUMTBCKISECKONETACT a1 -CKLICK, 

000106 OuM2ed, 

Oveil7 435 aM¢lo3,LPt)s0UM1 

000308 1F(-2) 440,440,445 

000109 440 aM(le3,LPt-1) = DUM2 

000110 GO To 450 

000133 445 CALL LIADCK,Io3, I18PP, DUM2) 

000112 459 LPLeLPlemaT2y 

000113 Cooes ENERGY AND SPECIES EQUATIONS 

000114 MPJaMaTiJdes 

000115 of 835 KoNUL, NSPM1 

000116 Cee alFy F. FP, FPP, FPP ERROI DERIVITIVES ARE DUMY TO hUMS, NUMA TO 

Oot117 CC® ® OUMA ARE FLUX DERIVEITIVES FOR ALF, FP, FPP, 

000118 TE (K) 455,485,460 
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arcq1g ak 1k Oy es Or a 
Ocdrel 455 , VeeCN, 
Troled «tem eLT4 
TLOLC2 *Sart77 
o7C1<3 Co) ate JH 
Ncnsca 2 @sCh? 
225165 79/7 
3.0126 i peC7A 
92% ,¢7 to Th GAS 
TOL. Ge + STECTFS © JIATI ONS 
12%, 29 460 DM FHC CSP1L( KP, OC56 OCKI5(K) 
or013¢C Lo PeetKy() 
Pehanob 5 | SM SBoCKS9(K ACK ES(K) 
170152 Sele 7 7 KOC eCK 14K) 
oc6153 Lo chasCK2z¢K) 
3 Jon, 56 NY *7ela1o (a) 
759155 Fi Bea cry 
)70156 465 2) 45202 ey SP04,K)AZSPC 4, [HL rk) 
305157 hi CIP Sed peleins 
1004 58 SU CMP UTE YS MUMS 
379139 1€¢tez2) 470,470,472 
o°N14s 470 AOMP SG 2 alu? 
920141 ave Pe dye We 
300142 A*CMPJ-4,472 PUMA 
oco1¢3 A‘(MPJ=-1, TFP)2 CIM? 
035144 AM CMPJet,3)¢ NUMF 
oo014s ur TH 475 
‘ 300146 47e CALL LIAL C-1.MPu, TEN, NUM2) 
079147 CALL LIAUCeL, MPU, TFPP, DUM4) 
GlO0146 475 “*LL LIANCHL,“PuU, TFPPP, NUYS) 
320149 Le ISP." ati 
9fC15% Dp? 530 KKswuL, NSPML 
oleneh Gia Ge 2 DIMZ/OLM4 AND DUM2/NLUMS ARE ESRORZELUX DERIVATIVES WRT G AR SP ANN 
e 00192 Ce # P OW SPH, RESP, 
050153 If (CKORK) 449,456,485 
Noo154 Ce = ETERCY EG, G VARJABLES 
9f0155 4P0 ur M2eeC8O 
on015s thas Cay 
oeo1s7 noe" sCb9 
300152 Gone 5928 
O00159 4u5 TECK) 499,490,495 
ogo1ec Ce = ESERG TH'ATTON, SP VARTSRLES 
030103, 490 O'MieeCK( KK) 
ac0162 fh i 2eeCKP (KK) 
pleteh ace) Lodeo Deg 
000104 WME ge il 2 
ocoies o” TO 500 
Nonies 495 JECKK) 5°7,570,845 
Ny0167 C - = SPECIES t%S . G VARIARLES 
ICOVFE SOC Oi Mlmel Koh) 
OV0149 MoM OgeC KOK) &¢ Oxia) 
9eo179 C Maa CK9( Kn) 
O00171 Mba CaS (Kk) 
OcO1’2 U7 TU 5% 
ocoi73 G - - SPECIFS .%45., SP VARIABLFS 
9coi74 SOD DimpeaCKKA( KKK) 
000175 Dei2we OKT CK KR IHLC TAL OCKK3( KKK) 
Oc047¢ Lt "deen 
900177 1 9S eCKKL CK KK) 


oC0478 TE(KeRK) 50P,°415,508R 





ocoi79 515 9 “1eefi: 4-036 

acorec STE a CMO ULE arimy 

Behe a5 IeCfe2) 515,510,525 

0012 SiG AAP, LEP a1)8 12 

IoC HS 5eU av(¥PJet, LPT) e7 46 

ocoyue ACM St LPLotya 85 

oceans Ge To 53.z 

JoO1R6 $25 CLL LIA CRM, “PY, TSP, 9UM2) 
090387 S3C LF eLele a%2y 

920 148 CALL LIAC(K,™PY, [SPPP,CO ex( 4 o2“*(4,f$o1)) 
300169 535 wo geri yeraT7y 

92019C MET IRN 

3502491 ect 
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Cx Flow ¢ iart 






COMTRIBUTE. TO (I-1> PORTION OF COEFFS 
CNETA-1> 
3/6 .OeDETAKI~1)> 


IF CI-2) $001.¢002.4001 
ty 
4902 MHCS)20. 
WEC5 320. 


IF CNBPHID 401.401.9003 






4 











4002 DO $00 Kel. HEPNI 


I Of KSPCS.KaG. 


$003 CONTINUE 
Cc EVALUATE X4.X8.AND XSP CHHICH CONTRIBUTE 70 ERRORS AND TO COEFFS 
ic AT CID AND AT CI~19> 


IF CNSPH1>$03.403.¢608 






40¢ 00 414 Ket. NSPHI 





HOS C72—F C2. TDeXMC LD 4F C3. TD OXMCED SECO TDONMC2) HF CO, 1-1) OXce 
XHC6 D=XMC64C72 


. 
-133- 


















APWL-TR-€9-114, Voi. IT 











EN C163 = ¢ C89 0053/2 .-C9eCT2-2 oc C2. 1 0DK : 
1, 3-1)0F CO. 7 ODNC3. 1-1)4F (8, 1-1 0ZM(6. I-19) 
BMI aF (2 LOMB 1D OF 63. LONE? OF CO. 1D OMBC3 DOF CG, I-10NBC ED 







1Jo] 
ee 1>eZBC( 1. 1-190 (3. 1>9ZBK2. 1-3 d0F C4 TD 


i 
2B. 1-1 4F C4. 1-3 DoZECG. 1-1) - KOC 1. 102K 1. 117982. 1072. T- 14863. 
332029. 1-19403., I-1>026¢. I-19) 







F CNSPH1 605. 405,406 


$06 00 $07 Kol. NSPH 


< . 1-1. 
KOE C4, 10ZGPC2, 1-1, KF (6,1 “bezecs. I-1.K) )-<9PC 
D4SPC2. 1. KIOZHCE. T~ 1 ¢SPC3., 1, KOZMC3. 1-1 94SPC3. I-1.4 


ic EVAL POR TROTCES ON VARIABLES T) ETENOENT UPON PARA EVAL AT: I-1 


(Coeee MOMENTUM EQUATION CORRECTION COEFFICIENTS 
ACT +2. 1 0-C8 14087 ODE TAC I- 
ACT +9, IFP>=-CP4+C8SeDETACI-1) 


—2) 410,610.41 


G10 AMCI+3.2>=-C73 
AMCI4+3.3)2-C12 


90 920 
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41S CALL LIAKX-1. 142. 
CALL LIADC-1,1+42. FPP. ae sth 


P.-2 CCS © XMCODOZ2MCE, I-1))> 


$30 0U419CK13 (KODE TAC I~1)-CK17 CK) 
DUM2 =6 . 


435 AMCI+3.LPIDe0LMi 


468 CALL LIROCK.I-3. ISPP. DUM2> 
450 LPI@LPI+MAT2J 


Cees aaa AND SPECIES EQUATIONS 
PUSMATLU+I 


ARR 


00 $33 K=NUL, NSPHI 


oS 
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= FET aT i 


660 OUNi=- wees aia 


DUNE =-Ca i634! 
DUNG @~CK1$<K>4CK 15<K> 











+88 Oe ate Soh eree en ek? 
Anche A, I7P>= GUNG 


> 470.670.9P2 


470 MPU. 2> DUNE 
AMCHPJ.3)= DUM 
AMCMPJ-1. 126 DUNG 
AACHPJ~1. IFP)= OUMT 
AMCHPU-1.3)= DUNS 


60 a? 


| a7? CALL CIADC~-1. Meu. IFN. OUM®> 
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00 530 KK=NUL. NSPML 


IC @ @ OUM1/DLE8 AND DUMP/OUNMS RRE ERROR/FLUX DERIVATIVES HRT 6 OR SP AND 
iC + © GP OR SPP. RESP. 





405 IF<K> 990.490.49 


(C - ~ ENERSY EQUATION. SP VARIABLES 


$90 DUM1=-CK1CKK> 
OUMZa-< 







4S5 JFCKKS 500.509.5058 


C - ~ SFECIES EQS.. G VARIABLES 







$00 DUM1=-CKS<x> 





AFWL-TR-69-11 


c-- 






4, Vol. I1 






DUMB =-CKS CK) + CK19¢K) 


er -- PR E.. mS  ssYd SP VARIARL 


$08 aie Seer 
=-CERICK. KROeB1CI- L>@CKKS (K, KK) 


OUNS i 
DUMB @CKK1 CK, KK 





08.515. 





CALL LIROCK. MPU. ISPPP.C2 #XHc49-Z(4. I-13) 


HP JeMPJ+HAT? J 


Se 











$ 
AFWL-TR-69-114, Vol. II 
END Dn oe ee 
® 
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13. SUBROUTINE IONLY - B13B 
a. Function 


Evaluates the coefficients of the I th corrections for the I th 
nonlinear (conservation) equations, where I is the i th nodal point in the 
boundary layer. Called by NONCER. 


-140- 


290N01 
od00u2 
o900Cc3 
aococe 
35005 
I000L6 
ocoan7 
990066 
9500uUs 
000010 
000011 
000012 
0c0013 
aroo14 
oco00i1s 
0C0016 
009017 
ocnulaA 
090019 
do00e¢c 
onooge1 
ocod0d2 
oco002s 
ocoue4 
090025 
0G00Z6 
0000<7 
oco0za 
OC0029 
960030 
900031 
090032 
000033 
000u54 
0c0035 
000056 
000037 
000058 
000059 
000040 
000041 
000042 
0c0045 
ococsa 
020045 
oco046 
990047 
000044 
onaneg 
000050 
ocons1 
900052 
C00n53 
onocto4 
000055 
090056 
990057 
oco0Se 


L. Listing 
CH434 813A 
SUBUUTT VE TONLY Bi3A 
MYTMENSTON CK23( &>.CK 240 BY,CK28( 8) ,CK26( B) Bi3Aa 
COMMON/SCOECIMS T4205,076080690C10.C1L,012.01350140C018B8139 


C 


400C 


4n2 


436 
434 


467 


157160C175034,6199C20 021, C22,02300624,525,06260C627,028,029.030,C31,08138 
237 1 C330C344035 00366037 ,C3% C30 10401041 40424043 ,046,0645,044,047,040B8139 
3,0469,C5N,051,052.C653,054,0655,056,057,058,059,060,061.662,063.C64, 813A 
4651066 6CO7 COR CO9CIO CIL ICIP SIS C741 CIS6C7AL CII CIALC79» C801 CA1B138 


5,7°2,C63.CA4,0C85,C06,787,COR Riga 
CMONSCIECONS CKAC 99,CK2C AYOCKS( B2CK4( 8),CK5( BY,CKAC A) B1538 
1 CR7C BVOCKAC HY,CKIC BY,CKLO% &),CK110 6),CKL2¢ AD,CKAS( 8) B13A 


2ePKI4C AD CK1ISC Bde CKI66 ADCKLTC BI,CK18C 8Y,CK19( B)CKANG A) 813A 
3,0K216 8), CKZ2( AY CKK EC %, BICKHAC A, 8)eXM(H),KG(5).XSP(S, 9) BALSA 


4,PRK3( By a) B13A 
COMMON/SERRCOM/FLE( 43),GLE(30)+SPLE(30, 5)eFLA(3513),FLEM,GLE™ B1i3A 
LeSPLEMC 9) cRLMCLE) ELM, TELM, IPGL 4, ISPLM( RY +NEL™, ILM, DFL( 43) #138 
2, NGL(30),0SPL(30, 89,FNLECI9), GNLEC 15), SPNLE( 15» &),ENL(153) 8138 
3,ENLCM,GHLE A+ SPNLEM( 9), ENLMM. TENLM,TGNLM,ESPNLM( §) R138 
4, ENLMs E\ LY, OFNL (28) -DGNL 615) /MSPNL (15+ 8) +DRNL( 10) 8138 
COMMONJETACOMSETACL9) DE TACES9.9SI1014) OCLC14) ,81644),82(14) 8138 
12oLAR(193),849043,18),HA2(300,57 8135 


GCAMMON/H1SCOM/C1 ,C20C3,C4, AL PHO, BETA, 2%(4,14),726( 9,14),728P(4,54, AB13A 
3 0X1040),WE(C15.5)-HCC15,3) HEPCLS,3, BO) HALPL MUL WHUE, MEW, ILX2 gi3A 
2,05M(40) RET AMC 40) R1i3a 

CHEMONSINTCOMS Kin 20) KIN KOUT, ATZT MAT2S MATIN, MATZ) NETALI,1S,"813R 
IS, IT INTIME NSP, NSPME NAM,NLEQ,NNLEG,NUNL, ITSsKAPPA,CHAR,CASE(15) AL3R 


SaRUA)e MwE NON KGCL0) STEM, NITEM, KRL7NBT,NBT2, ICENT,KRO‘40) B13R 
3,KAUXO, JTIME, JSPEC MD(3) B135P 
CAMMON/NONCOM/AM( 18345293) sDVNL (953), 7CR? 8139 
LVLNKWeOCLPHC 9),OLPK( &, 9), OTHW,DTKW( B),FLIUXUBC 9) R130 


CAP AON/PRPCOMJFR( 15) 67025), 8H00959,5C015)2CAPC(18),0R(15),4(25) 8138 
1 eA PBAR( 25) oVMW(25) PHI K(645, BYsPRHOM,ARHOK( 8),ZK( &),DZKHC A). MALIA 
215K BY CMUSK( B/DTK( 8) ,OPMIKH( B),DPRK( 8),05CK( &),DCAPCK( A)BL3R 
S,OHTILK( 4),OGRK( &),OCPBK( &),ACPTK( 6),OMUL2K( »),DZKK( 8, 8) Bi3A 
4, 9PHIKK( Py 8), OMUSH OMIISHSOHT ILA VMUL2,CT,CTRCPTIL,HTIL 6138 
5,\MU3,D TN, DCAPCH,NPRH.DSCH,OGRN,OCPAH,OCPTH»OMULZH,VMU(18), RNOP B13A 
6(45),PHIKP(15),HP»TPATKPC BY, VMUSPLVMIIGP,WTILP,CRNO(34),G4R(15) 813A 

DIMENSION CYM(3),C¥M( 3). CYSP( 3) 


aNO CONTRIBUTIONS OF 1 TO NONLINEAR ERRORS g13A8 
EVALUATE GROUPINGS HICH ARE USED ONLY AT I (NOT at fod) HixaA 
CRHO18 C26ODETAC IT o1)0(1.9C53/6,.MeNETA(Io41)) B13A 
CA#9BCOeCRHOL 8138 
CIHO( L-L)8( CRHO( J=4)eCRNOL)/2, B138 
ENLC LOS SENL( 1+3)0(CA30C89/2,) 

MPT e“AaTi Jel 

EL CMP DSENL (MPI) 0CB4 

TE CNSPMY 403,403,402 B13A 
DO 434 Kai, SPM4 B13a 
MOT SAP} e4aTeg 


FULOMPS) sENLOMPT) @(OK22CK (PHIM CE KDODETAC [1 ) -PmIKP(K)OA2( fed) 
L-CK16(K))) 


CONTINUE 

C1 467 Ke1,NSPM1 B13A 
CH23(K) BB20 Tod DeLPHIKH(K) Riga 
CH24CK I BCISOCK23(K) Bi3a 
CX2S(KIBOFTACT <1) OOPHIKH(K) 8139 
C1266 K) C1 0eCKgs(K) Bisn 


Eval PORTIO'N OF ORIG COEFFS OF at DEPENDENT UPON Pare FVAL aT 1 8132 
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o0¢ 
002 
NGOIONE. 
4eNnEa 
SONEW 
SONEW 
TONE w 
OONnEw 
QeNEw 
1LOeNEwW 
LIONEW 
L2eNEwW 
LIONE® 
L4ONEW 
LSeNEW 
L60NED 
17eNEW 
LAeNEW 
LOONEW 
200NEW 
210NEW 
220NEW 
230NEb 
240NE 4 
25eNEw 
260NEW 
270NEW 
28eNEW 
290NE ¥ 
JOONEW 
3SLONEW 
J2ONEw 
S3ONEW 
S4eNEw 
SSONEw 
34eNEW 
SI ONEW 
o~ 36 
Asa 
N39 
na 
442 
043 


O54 
$2 


057 
Of8 
N59 
940 
N64 
62 


Ws artalt AR ie ge: 


tee 


NS Pe ee ne No aN Me Fee Ce 


000059 
ocooed 
oconés 
9c0ne2 
ocoaes 
o00ne4 
aoooes 
030066 
000067 
009076 
o00ne?s 
006670 
090071 
090072 
000673 
oooo/4 
ornc7s 
OCO0/e 
000077 
900076 
900079 
ooocto 
ooocss 
Oo00Ke 
090083 
000086 
oc00ls 
00046 
000087 
o00css 
onooes 
000090 
000091 
000092 
000093 
000094 
000095 
o000% 
000097 
ocoosA 
ocooye 
000100 
000103 
00012 
onoies 
oooics 
090105 
ocoice 
000107 
9001C8 
0001C9 
000110 
000231 
000112 
000113 
0no0ii4 
000135 
000116 
000117 
000116 


Ceoegee 


ans 


495 
Covee 


4ic 


413 


436 
417 


420 
421 
425 


Ceoce 


428 
Cee 


C-- 
430 


G-- 
439 


440 


+ ae) BEER SSE a _ 
SS oe 


ESTAPLISH TINTCES FOR VARTARLFS 

NiiLed 

TENS] 

TFPstes 

{EPPaNETacs[-2 

[EPP SIFPreUETA 

1SPNaled 

tSpPsl 

[SPPPSLFPPo? 

9 405 Laird 

CYM(LISCZONM*CL DZM(Lodnd) 
CYM(L IEW (COOKM(LY # LMC LA Tod) 026 
ANMENTUM EQULTION 

AMC TSSe LV BAMC L301 OC9L9CSOCROCIZ4CATODETA( I <1) 
AvC Lode [EPI EAMC 163, TEP) OC TACCRBODETAC T-1)4CXM(1) 
CALL LEADC edo Te3.TFN,C73) 

Cale L1adCo e Lede TEPP,CL2¢CXM(2)) 

Cake Liantete led, 1FPPPeCXM(3)) 

[Pte 1SPNeMaTIJ 

ON 425 Ket.UL, NSPMS 

TECK) 410,410,418 

1 IM48C7S+CORONETAC{oL) 

cm2s0, 

Go TO 416 

DIME SCKAS(KIONETACT <2 )4CKI7(K) 

pim2e0. 

JECTONETA) 42004177420 

Cab LIADCK, $o3.4.DUM1) 

Gn T9 421 

AMC LOB LPLISAMCTO3+LPT)*DUMS 

Caulk Lad (kh, 143, 1SPP,0UM2) 
LPLecPlemat2y 

ENERGY AND SPECIES EQuaTIONS 

MP yemaTivel 

DM 490 Ke*UL, SPM 

bo 428 L803 

CYSP(L) SC2OKSP(L KI@ZSPCLe Leds K) 

ALF, Fo FR FPP. FPPP ERROR DERIVITIVES ARE ODUM TO DUMS, 
TECK) 430,430,435 

E*ERGY EQ, 

QumgsCe2 

QuUMesC76 

OM3SeC774CYSP(1) 

DuUmMssC7A4CYSPC2) 

Go TO 440 

SPECIES ENS. 

Numgs CK24(K) +036 @(CK26(K 92, OCK24(K)) 
nrmesCKki aK) 

CimssCKiec Kk) + CK24(K) = CK26(K)OCYSPCL) 
OuUM4 e100 (CKS(K)OCK23(K) ) + CYSP(2) 
pumss CYSPCS) 

AM(MPUed)a AMCMPQ,d) & OUMS 

A4CMPU, JEP DS AMCMPJ, IFP) * fuss 
CALL LIADCH 1s “Pade TFN, DUM2) 

CALL LIAD( ete MPyy TFPP, ouUM4) 

CALL LIAD( ote Woe TFPPP, CUMS) 

Lela ISPNeMATIJ 

Nn 465 KKsNUL,NSPML 

pM, AND NUMZ ARE ERROR OFRIVITIVES way G OP SP aNp GP OR SPP 
TEC KORK) 445,445,450 
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100115 
o9042¢ 
halsh al 
2001<2 
920123 
3270124 
90425 
970126 
990127 
AeC12t 
Oroie? 
3001 50 
oco413s1 
300132 
200133 
020134 
9c0135 
006156 
000157 
NC0136 
000139 
Ocoise 
acos41 
0c014z 
0n0143 
oc0144 
100145 
onn146 
oco147 
900148 


Ce- 
445 


450 


455 


440 


C-- 


4n5 


Gee 


470 


475 


4a0 
ane 
any 
qua 
ad 


4g 


E ERGY Es.e G VASTARLES 

rime slay 

HUM2sCeo 

5° TC 475 

TECK) 455,495,461) 

t RAGY Ew,s SP VaRTABLES 
roeMLSCHL( KK) 

Cim2sCn2cKK) 

57 TO 4Ay 

IF (KK) 465,465,470 

SFECTES ENS., G VaRTAlLES 

Neate CKI(KI<-CKAS(K) 

Cot 2aCaS( KOCK 23 0K) 

G* TO 48) 

SPECIES &€9S., SPECIES Var aRLEs 
LUIMLBCKK (KKK oD PMTKK(K KK OMETA( [-4) 
NIM28CKKL (Ke KK) 4620 5-1) @ DPHIKE(K, dK) 
1F(KekK) 480,475,480 

CO 1Ls0UML4CYM(4 96014 
1IM280UM24CY“(2) 

IECT@META} 483,462,483 

CALL LJ ANCKK,“PJ,1-DU%Y) 

Gc To 4n4 

B'OMER Je LPY Bas (MPU LPL ODUMS 
Crh LIADCKK, MPU, ISPP,0UN2) 
LPTs LPlemMaTay 

CALL LIADCKeMPY, TSPPP, Cy4(3)) 
MP JOMF UetAaT2g 

ar TURN 

t'D 
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c. Flow Chart 






ROS Cont RisuT Oks OF 1 TO SoM IMERR ERAOES 
Y mT I (MOT AT I-1> 


4006 BeBe Eesenemmcieivect- ahve be I-1>> 


43-1 eC CRHOC I-23 ian 
(142 JoEN. C149 -CC83¢CO9/2. 
Tay 


ig bide] 
EML CHP I ENL HPT > -CBe 








ns or ts: 2a : } 
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CYVKL CP OMKLD-DKL. I-13 


403 COKL D@-CCSOMKL) © DKL.I-12008. 


EGUPT [Ox 
OK Io. 1909 1-CSeCReCh2 COP DETACI-1) 


WKT+9. 1) 

WI 42. LEPIOOACIOD. IFPDOCTS SCBECOETACI = 1 DoCoPCTD 
CALL LIADX-1. 168. IFW CPE) 

CAL LIADK-1. 163. IFPP. Cif +o?) 

COL LIA -1. 163. IFPPP. C0K3>> 

(Pla ISPNEMATSJ 


00 425 X¢88. YEON) 


920 RMIoCrSeCes LETH I-1) 
OUNR Wf) . 


aU TO ets 


OLS Supe 3 CK) of J-1 4087 CK) 
DunMz<8 . 


| ¥T CI-NETA) 680. 417.436 i 


O17? CALL CIADCK 143.1. Omi) | 


i 00 TO s2! 
| 620 AACI+S, LET ANC I +9, LPL DUM 


421 CALL BIS Se Oe cK. 1 +$, (SPP. GUM2> 


i C985 LPisCPiemates 


crix, ae 


49 7 








or oe 
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2 


‘000 Bape 5 @ 
WMT I+! 





> C56 OCCKESCKI-2. OCKEECK)D 


ick 
16¢K) 

CK IS CK) + CREE CK -CKEE CK) CY SPC1> 

aC 1DOCCKS CKD CHES (KD) + CYSPCE> 


P<3> 
>= AMCHPS.1> + CUMS 
IFP> + DUNS 








| 
oe 2746s 
ee a ane a ee 








AFWL-TR-69-114, Vol. II 





KK) 645.965.8650 


IC - - ENERBY EO.. 6 VARIABLES 


80 TO $90 
T7460 TRckK> 665.468. 470 
C - - GPECIES EGS.. 3 VARIABLES 


463 OUM1= CK9CK)-Cx2$ (KD 
DUPE =CKS CK) +CKR3 CKD 


60 TO 480 i 


C - - SPECIES EQS . SPECIES VARIABLES 


470 OUM1@CKK2 CK, KK)-DPHIKKCK, KK) *DETACT-1> 
OLPI2 @CKK1 CK. KK 4B2CT-1> 9 OPHIKKCK.KK> 


+e saalbaa 
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IFCK-KK) 480.475.980 





480 IFCI-NETAD $83.482.983 


& 


182 CALL LIADCKK. MPU, 1. DUML> 


es ee 








CALL LIADCK. MPU. ISPPP. CYMC3>) 





490 HPP sez J 
RETURN 
ae. eee en a eer) 
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14. SUBROUTINE RERAY (N,C,NN,D,NNN,LS,IS,ND) - B15B 
a. Function 


Replaces rectangular matrix (C) with N rows and N+NN columns by the 
product of the inverse of an N by N submatrix and the remaining columns of C. 
The inverse is also permitted to act on additional columns (Matrix (D) with N 
rows and NNN columns) from another portion of memory. Also, routine rearranges 
columns according to arbitrary specification given by LS. 


N NN NNN 


Called by EQUIL, NONCEFR, RNICER. 


N = Number of rows in rectangular matrix (see sketch) 

c = Elements of rectangular matrix (see sketch) 

NN = Number of columns in matrix C in excess of those contributing 
to square matrix (see sketch) 

D = Elements of matrix of additional columns (see sketch) 

NNN = Number of additional columns (see sketch) 

LS = Sequence to which columns of C are rearranged (LS(1)=0 


signifies no rearrangement) 


Is = Flag, vields debug output if RERAY entered with IS=-2, 
signifies singular matrix if RERAY yields IS less than zero. 


ND = Dimension on rows of C from calling program 
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b. Listing 


0u000;3 SUBROUTINE RERAY(N,C+N3,0,NQN,L8,IS.NO) 

009002 c OLRECT INVERSION PROCEDURE == C JS REPLACED SY Ceany 

000003 OIMENSION O(ND,2),80(185),C(ND 123506453 ),9(253) LL(983) LLL (183), 8188 OCSeNEW 
000004 ied) 8158 O04eNEW 
000005 NNNe TABS(NQN) 0002 
000006 NN 8 [48S(NQ) 

000007 KOUTS6 

000008 Ni eN-d RERA0070 
000009 NP 8 N ¢ NN RER« D080 
000020 00 15 191,NP RERS0090 
000031 LLLCT) # J RERA0S40 
000032 TF (LS¢4)) 10,10,5 RERA0120 
000033 § Leh) & LSC) RERAO130 
0000%4 GOTO 15 RERA0140 
000015 10 LCT) et RERAD150 
d000%6 45 COMTINUE RERA0L60 
000017 IXee dt RERA0L70 
0000148 IF (1S @ 2) 43,35,45 RERA0180 
000019 20 FORMAT(AZH LCD), $9t,13.5" (3013)) RERA0190 
000020 25 FORMATIASH COCCT ede Utd Td esha (Dis) dadeTSe GHd,fek,13.29H) BERERADZ00 
000021 LFORE RERAY) RERAO2Z10 
090022 3O FORMAT(2X 11810,3/(42X 10810.3)) RERA0220 
000023 35 WRITECKOUT,25)NP,NNN,N RERAO2Z30 
000024 WRITECKOUT, 209NP, (LOL), fed .NPS RERAO0240 
000025 1x 90 RERAD280 e 
000026 DO 40 Jai,N RERs0260 
000027 40 WRITECKOUTS SOd(COLed) sede NPD (OC feu) > 0822 NNN) RERADN270 
005028 4s 1S 8s «4 RERAN280 
000024 C TRIANGULATE MATRIX RERA0290 
000030 00 430 {ts4,N RERAOSON 
9000314 00 56 Hai,NP 

060032 80 S(M)sAB8(C(1,M)> 

000033 IF (13) 58,60,60 RERA0330 
000036 $$ 18 8 O RERAOS40 
000035 GOTO 40 RERAO3S0 
SOGG3S6 ¢ REOUCE ROW ! SY PRECEECING ROWS RERLO369 
000037 80 00 85 Je2,} RERA0370 
900036 K @uld © 3) RERA0380 
000039 OLV © = CCTOK: RERAO390 
000040 IF (OIV) 69,65,65 RERAN400 
000041 65 c¢teK) © 0, RERA0410 
006042 00 70 Med,NP RERANS26 
000043 OIrve @ OlV © Cl © 4,M) RERAC430 
000046 GCM) SAMAXS(8(M), ABB( OVC)? 

000045 70 Celem) © CCTM) © OLIVE RERAD450 
000046 IF (NNN) 89,85,75 RERA0460 
0000¢7 75 00 GO Med,NNN RERA0470 
0000486 60 OC Tem) © OC TOM) © OFV © Oly © 2.M) RERA0480 
000049 85 CONTINUE RERLO490 
000050 ¢ SEEK MAXIMUM PIVOT RERA0S00 
000051 $90 DIV 3 0, RERAOS10 
000052 00 100 Juss$.N RERA0520 
000053 M@ Lyd) RERA0830 
000054 TE (ABS(COT.M)) © DIV) 100,100,095 RERA0S40 
000055 98 O1V s ABS(C(1.M)) RERACSSO 
000036 K 2M RERADS60 
000057 J 8 JJ RERADS7G6 
000058 TF(ND@20) 100,100,101 
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000059 
600060 
000064 
000062 
000063 
000064 
000068 
000066 
950067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
090076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
00084 
000065 
000086 
000087 
000088 
000u89 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
090097 
000098 
000099 
000100 
900104 
000102 
000103 
000104 
0001u5 
000106 
000107 
000108 
090109 
000110 
000121 
000112 
000115 
000134 
000118 
000216 
0001317 
600118 


100 
ina 


104 


1n5 


110 


115 
120 
125 
130 


135 
140 


445 


180 
185 
190 
195 


200 
205 
210 


215 
220 
225 


144 


CONTINUE 

SPC TP SOITV/S(K) 

Li J)sbet) 

Li lak 

TFCSOC 1} )-1-E-A) 1046194,110 
C(t,«)80, 

1E(SOCT)) 105,105,90 

SINGULAR MATRIX RETURN 

[Ss~4 

WRITECKOUT 135) CLL sLCIE) SOCLL thes. )) 
RETURN 

Qtv s Ccj,K) 

C(lex) 8 1.0 

K ® LLL) 

LUELC) ® LLECT? 

LLLCJ) & K 

LUCK? 8 J 

NORMALIZE ROW 

TF (NNN) 429,125,115 

09 120 Jsi.NNN 

Ose) 8 OCl,u) 7 DIV 

00 130 Jei,NP 

CUl J) # C(I) 7 OV 

1F (1X) £45,140,145 

FORMAT( 24H PIVOT ROW/COL/RE3 RATIO S8¢14+3H/13,1M/E9,2,2n,)) 
WKALTECKOUT/ A359 (PECL SOC LI, 1ed MP) 
DIAGONALIZE MATRIX 

NM“ @ Neo 4 

SNTERCHANGE COLUMNS 

VO 225 Ilad,NP 

1? J 

v 8 LCT) 

L¢l) § 1 

TF (J = 1) 185,225,185 

tF (1S) 200+190,.200 

09 195 Mat,N 

S«M) @ C(Msl) 

CcM,T) & C(M,U) 

se f 

lad 

GOTG 180 

1F (IS = J) 205,245,208 

Of 210 MatsN 

CCM,T) & COM) 7 
Ie ° 
GOTO 186 

09 220 Magq.N 

CcM,f) #® SCM) 

16 2 4 

CONTINUE 

LFE(NQN © NQ) 149,149,144 

LE CNQN+NG=NNONNN) 149,147,149 


CooseeSALUTION VECTOR ONLY 


147 


152 


KaN 

00 153 Jei.NM 

Keke 

09 153 [Lek sNM 
OUMeC(K, ILed) 

Te (NN) 192,152,151 
Of £46 MeNd,NP 
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RERA0S80 


RERAOGTO 
RERA0680 
RERA0690 
RERA0700 
RERA0730 
RERA40720 
RERA0730 
RERA0740 
RERA0750 
RERA0760 
RERA0770 
RERA0750 
RERAO790 
RERAOADO 
RERA0810 
RERA0620 
RERAOASO 
RERA0960 
RERAOOT0 
AERAOVAC 
RERA0990 
RER«L1000 
RERA1010 
RERA1020 
RER*1030 
RERALO4O 
RERALO5SO 
RERAL060 
RERA1070 
RERA1080 
MERA1090 
RERA1100 
RER41110 
RERAL120 
RERA1130 
RERAL140 
RERAL150 
RERALL30 
RERAI1170 


° a et ceghlt 








000119 146 C(KeM) © CLKM) © DUM @ ClILoeyM) 
000120 CCK 4 98C(K 12) DUMOC(ILo4,2) 
000123 TF (NNN) 153,953,152 
609122 452 Of 448 Med,NrN 
00423 £48 DEK IM)806 KM) @DUMOD( Lod ,m) 
000124 153 CONTINUE 
000125 GO TO 176 
O0Gi26 CezeeeFULL INVERSION AND SOLUTION VECTOR 
000127 149 OC 175 Jad,NM RERA0840 
000128 00 175 Jei,! RERA0860 
000329 OIV 8 = Cldeted) 
000130 TF CONV) 190,175,480 RERA0880 
600131 150 CiJv,J*1) 8 0, 
000132 TF CNNN) 165,165,155 RER«0900 
000133 483 00 160 Mat,NNN RERA0910 
000134 160 OCde4) & DC JM) © DIV © OC] © 4,M) RERs0920 
0004558 165 00 170 Mad,NP RERA0930 
000136 170 Clde4) @ ClUeM) © DIV @ Cll © 4,%) RERA0940 
000137 475 CONTINUE RERAO9SO 
000136 G INTESCHANGE ROWS RERait80 
000139 176 DO 320 Ifet.Nn RERA1190 
000140 rey RERAL200 
000143 230 v2 LLCY) RERaL210 
000142 Lcd) & I RER4AL220 
000143 fF (J * 1) 238,320,235 RERAL230 
000344 235 iF (38) 265,240,268 RERAL240 
006145 240 DO 245 Me1,NP RERA1250 
000146 S¢M) @ CCTOM) RER«1260 
020147 245 CCUM) @ CC JOM) RERAL270 
000248 IF (NNN) 260,266,250 RERAL280 
000149 280 Of 255 Mad,NNN RERAL290 
000150 800M) 8 DC Jom) RERAL300 
000153 255 DCE mM) © Of UM) RERAi310 
000132 260 18 a I RERai320 
000153 Ted RERALS30 
006154 GOTO 236 RERALS40 
000155 265 18 (38 © J) 270,298,270 RERAL350 
000156 270 00 275 May, NP RERAI360 
000157 275 CUbeM) © ClUeM) RERALS70 
000158 IF (NNN) 290,290,286 RERAL3EC 
OooLs? 280 DO 285 Mey ,NNN RERAL390 
009160 288 OC3,") © OC UeM) RERAL400 
060163 290 tay RERAL420 
000162 GOTS 230 RERA1420 
000165 293 00 300 Msy,NP RERA14350 
000164 300 C(3,m) © $(M) RERAL440 
oro165 fF (NNN) 325,315,305 RERAL450 
000166 305 00 340 Meq,NNN RERAL460 
000167 310 OCF ,M) © SDCM) RERAL470 
000166 315 18 3 0 : RERA1480 
000769 320 CONTINUE . RERA1490 
: 000370 TF C1X) 340,330,340 RERALSOC 
000173 325 FORMATCISH (CCod Jie uede TOL ANI (OCU state lSs OH), fe4,13,15N) AFRERALSIO 
000472 ASTER RERAY ) KERAL82C 
000173 33C WALTECKOUTs 325 NP eNNNIN RERAL§30 
000174 06 335 f81,N RERALS&0 
000175 335 WRETECKOUTS SOC COL J) u8deNP), (OCT. J). 08d 2 NNN) RERA1350 
000176 340 RETURN RERA1$60 
000177 ENO 
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c. Flow Chart 


SUBROUTINE RERAY<(N.C.N@.0. NaH. Ese S.ND> 
OIRECT INVERSION PROCEDURE - i8 REPLACED BY Cee-1 


HNN=IABSCNON> 


NP = N + NN 
00 15 I=1,NP 


LLLCIO o T 


| IF <LS¢L>> 10.10.5 


S LI = L8¢I) 






SOTO 15 


10 LUCID = I 


18 CONTINUE 


Xa- 1 


IF C15 + 2) 46,096.95 


20 FORMATCLIH LCID, Tat. 13.8X ¢€3019>> 
25 FORMATCESH ¢CCCI.J>.Um3.13. 12H). COCJ>.Je1,.J3. SH). 321.13. 15H) 


1FORE RERAY> 
$30 FORMAT(2X 11€10.3/¢12X 10E10.3>> 













e 
» 


35 WRITECKOUT.2S>NP.NEN.N 
ee CLCT). Tel. NP? 





DO 40 I=1.N 
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40 WRITECKOUT.30>¢C(I.J>. Jet. NP>. CDCI. J. Jel.NNND H 









S--1 
TRIPNOULATE MATRIX 


DO 130 I=t.N 


: [ 5 y SH =ABECE 1.43? =e 


| IF (IS) §6.60.60 












60 0O 8S Jaz; 


| IF <DIV) 65.65.65 
| 68 CLK = 0. 


DO 70 H@i. WP oe 


OIVC = OYV # CcJ - 1-4 
SCHONAMRAL (SCM). RBSCOIVC) > 


OE 











ne ee 
cabinets ett sata thesis acai Xs’ + 2tt Nlalainalies ceitanibie Assn, 
Paes ae 





sais, ae 


IF CNNND 95.85.75 


ese ee oe eS b 


So arctan + ect naam dake Mee a 


1 
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: a 


| 5 DO 60 M=1.NNN 


cas ceee nk ae ena 


80 OCT.M> = OCI.) + OLY @ Dey - 1MDd 


@5 CONTINUE 










SEEK MAXIMUM PIYOT 


30 OIV=<s. 


DO 100 vJ=I.N 







IF CABSCCCI.4)>> - DIY) 100.100.35 


IFCND-20) 100.100, 101 


{00 CONTINUE 


ie DIV = ABBCCCT-HD) | 
J # JJ | 
| 


101 S0¢I>=DIV/3¢(K) 
UCS2#l CID 
L¢ID=K 


Cage 


15 S~ 


Leeeicciaeah Mave Gieeersale tees ceeds PaeR tl encenale veneer toe a ela ote aa 





| AFWL-TR-69-114, Vol. II 
i 
ERE CRCONCMENT: SREOeN aati Pes Teter Det rete 
| 


| TFCSOCTS-1.E-8) 104, 104. 110 
a ae eee ee EEE eee EN SE ey ee 


| 104 CCi.K0d, 
IFC<SGCI>> 105. 108.90 


‘ 
| C  GfSAULAR MATRIX RETURN aH 


108 Ise-i | 
WRZTECKOUT. 125, 











CHILUCTI> SOCIID. Ties. 7) 







115 96 120 Jel.NAN ' 


ane Seaetecrens 


190 D¢i.J2 * BCG.J> / DIV 


iz 133 J=1. } 


Clu = CCL. 7 ay aa he tes aed) 


—-—— 
. tema a ona we ey, 


| IF <I) 195.140.1365 


ee 
| 136 FORMATCZ29H PIVOT ROW/COL/RES RATIO 5°18. LH/13. 1H/ES.2. 1H. 0D i 











130 
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Descent un ae le he ee ae ee oh ad 

















{ 189 WRITECKERIT. 135 9¢ 
Cc MIGNPLIZE ATR 


365 Mis Mw - f 
be 
——I 


L.U°3>.SOCID. Lo 3) 
ix 





Epes eae eee ener renee: aaaes abet arcane 


| 
+ StH) = Cee. DD Peas 
185 C(K.1> = COM) as yeas = = as =i] 





i 8 z = 

~ “t 
_ 

an 

oss 

8 

D 

oe 

: 

4 

ae ad 





Teac IF CIS - 5) 205.2815.205 


i aa 











| Zi CCM. I> = CCH. 4D | 
1 





| 
| 


a ee onde. 
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21S OO 226 Me1.N 






£20 CCH. I> © SCH 





CNM + WO) 165.199. 199 





19? Kew 


¢ 
ta 


=i.NH 


KeK~{ 


00 £53 ILek.NM 







OUMeC CK. IL41) 


F CNM) 158,152. 153 
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151 00 168 MeN1. WP | 


198 C(K.M> © CCK.M> - OOM @ CCIL41.4%) 


CCK. Ld eSCK. 1 -DUMOCCIL 41. 1) 


IF (NNN) 182.162.1652 


152 00 148 Hel. NAN 
168 DOCK.) =0¢K. H)-DUMODCIL 41.42 


80 TO 176 


[CooeeeFULL INVERSION AND SOLUTION VECTOR ~ | 


1$3 00 175 T=i1.NM 










OW = - Cc. 1+id 
IF COI¥> 180.175. 150 


180 CJ. I+t) = 0. 


IF CNNND 1865. 165.155 
1 


SH 2 
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chy Ce aco] 
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183 60 180 H=1.NAN 


— 


[et DC.) = OLI-K) * DIY © BL + LAD in 


165 DO 170 Mei.NP 


1?$ CONTINUE 


o 


INTERCHANBE ROWS 


176 Oo 226 [l=1.N 










> 235.320.23% 


IF > 260.260.7250 
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er ee 


250 00 255 Mel. NAN } 


ee ns 









SOCH) @ OCJ.MD 


270 00 275 He1.N? 


IF CMNND 290.290, 280 


| 
26S IF <IS - Jd 270.296.2706 | 







280 DO 285 Hei.NNN 


Cees OCT ay = OCD 


290 Te J 


RO 290 


235 DO 300 K..1.NP | 


300 CCE.M) © S<M> 
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3 
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| 







316 OCT.M> = SO(M> 


iS Is = 0 







IF CIN) 240.390.360 


32S FORATCISH COCCI. JD. Jed. 13. 12H). (DCU). Jei.13. GH). I*2, 13. 1SHD 
tTER REBAY > 
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15. SUBROUTINE SLOPQ (N,X,Y,S,2) ~ B16A 
a. Function 


Based on a sequence of quadratic (3-point) fits of a set of points 
caiculates average slope at each point and integrates the cubic equation thus 
defin-* between each pair of points. Called by REFCON. 


N = number of points to be considered 
X = abscissa at each point 

Y = ordinate at each point 
Ss 


= derivative at each point 


n 
ul 


integral up to each point 


~163- 


Os a ae 





000001 
000002 
000005 
000004 
000005 
000006 
000007 
000006 
000009 
000030 
00601: 
000032 
000035 
000014 
600015 
000015 
000047 
000018 
006039 
000020 
000021 
009022 
000023 
000024 
000025 
000026 
690027 
000028 
000029 
OndPsS 
060031 
000052 
000035 
000034 
000035 
000036 
000037 
006038 
000039 


d. 


Listing 


Ca16. 


ewevw 


S'IIBROUTINE SLOPG(NsXe¥eSe2) 
OIMENSTON MCL VOL) SCL) ,702) 
[ECN@L) 9,908 

SC ZISCVC2VAVCLDI/ACKEZIMKCAD) 
$¢1)29S(2) 

aces8(2) 

oc 7 Is814,N 

LEC LOL°N)201,6 

arsed 

IF (102)7,6-5 
xOTaXCL)-x( fod) 

XTT eX [ot eX 142) 
KTOMXCLe2)°XC 1) 
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CONTINUE 
RETURN 
ENO 
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c. Flow Chart 
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16. 


NONCER. 


SUBROUTINE ABMAX (N,X,XM,I) - B17A 
a. Function 


Searches an array for the entry with maximum value. 


= number cf entries in the arrav 
= coefficients in array under consideration 


N 
Xx 
XM = entry with maximum absolute value 


<% = index on XM. 


Called by LINCER, 


Lie seek” 


a ae aa ES, 








090001 
000002 
000003 
000004 
000005 
000006 
090007 
000008 
Goo00y 
000010 
0c00s4 
000012 
000035 
oooois 
000015 


b,. Listing 


CAq7a 


SUBROUTINE AGMAX(NGK + XBT) 
DIMENSION X41) 


ted 

x¥saBS (x(1)) 
TF (Ned) 454,5 
coo 3 J82,' 
yrsags (x(J)) 
LE (XMeXT) 2.3.3 
xeex’? 

lev 

CONT INVE 
avex(t) 

RETURN 

ena 
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c. Plow Chart 
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TF DO 2 JetN } 
RTaABS (XCD) 
>? 2.3.2 
3 ae 


a 
2 XMeXxT 
InJ 
3 CONTINUE 


¢ XMex¢<1> 





+ blend” 


eed 





AFWL-TR-69-114, Vol. II 


17. SUBROUTINE MATS1 - B18A 
a. Punction 


Performs operations on a column of a matrix 3 or on a column of errors 
R (designated £ in call list) such as to form A**(-1)*E where A**(-1) is the in- 
verse of the sparse matrix formed from the Taylor series expansions of F(i,I) 
and their derivatives (in the case of MATS1) and of G(1,I) or SP(1,2,K) and their 
derivatives (in the case of MATS2), viz., 
Original matrix equation 

(A + B)V = R 

multiplying through by A?*(-1) 


(1 + A**(-1)*B)V = A**(-1)*R 


Called by LINCEP, LINMAT. 
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000047 
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000056 
000057 
000058 


b. 


Listing 


CBi8s 


1$ 


18 


19 
20 


23 
24 


22 
24 


28 


26 
27 
12 


S' HROUTINE 4a7$1(x) 


COMMONS INTCOM/KR( 20), KIN, KOUY Mati] MaT2E MATL S,MAT2U,NETA 


COMMON/ET ACOM/ETA(15) DETAILS) 
OIMENSION XC1),A014),8(9469,E094) 
JECKRCL).LT.-80) GO TO 16 
YRBNETA 

TECKROGO D1) £4°16219 
K2(1)8KR( 3 4100 

vase 

X(NETA) SX(NETA)SX(4) 
iFCKRCIN 91) 13548099 
LIMBNETA-2 

Gf TO 20 

LIM@NETA+3 

JaJB 

Ka JBoNETAeL 

xus0, 

OO 25 {#1,L1M 
KKBCXCII/OETACT XU) 02, 

X( I) BOX(K)ONK 

XCK)SXKSOETACT) 

1F(JBe2) 21,235,234 

IFC IOL°NETA) 24,27,27 
XO1)8{XI/2.OXK/6, ODETACLODETACT =x 1) 
TFC LOLONETA) 22.527+27 

KC TOL) EXC TL oXCT) 

XJex(u) 

X( Kod )aX( Kod oXd 

JoJed 

Keke 

TaNETAq4 

KKOCS OCK(SI/DETAC TL OXI K CK eX( Kod) 02. 
XKPaX(K) 02, <XK 

X( J) 8X( Keg) 

X{KOLSXKP/DETACT) 
XCK)BXK/DETACY) 

1F(JBe2) 26,27,26 

XCF 28CXI72,9XK/B OXKP/ZS, DODETAC TL ODEVAC TXT) 
RETURN 

OSVaDETA(NETA) 

DETA(NETA)80, 

aciye,§ 
40478DETA(2)/4.eDETA(2)/2, 

on 2 te3,NETA 

CC Um2) SDETACT@4)/(6, 0a 1 -2)) 
BC 1et)0.5C([-2)08( f-2) 

ACE 2802,/3,-C( 192008 192) DET ACT Hf OBC LL) eDETA(7) 
JaNETAot 

Ke JeJA~4 

LaXxed 

XCLISXCLIOXC LoL) 
XCLweLISX(LeLox(L > 

KEL IBXCL IKK SDE TAC) 

Lebel 

KaXeal 

vaJel 

{EF (dnd) 4.4.3 
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Biba O04 


B18s OO40NEW 
Biss O08ehEW 
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oNEW 
Obed 


NE mitt RS et REDD 
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vaJdet 
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69 70 8 

MeL 
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00 7 Ksd,? 

XCM) BX(M) @DUMOB(K) 

MeMey 
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X( Jol sxC ua ]) 

lated 

18 (1) 9,906 
DUMaDETA( 4) @eOETAC1) 
X(J3)8X(JB)/0UM03 0, 50x( Jo) 
1F(JBe2) 13,544,235 

KCL) ODUMENET ACL 06X63) /8, OX 6 od 9/24, oKT4) 


Lev8 

DO 40 Je3,NETA 

JaJei 

MCLION(LEL ADE AC Sod eDETAC Sod) /3.0CK( IO, SOX( VOL)? 
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RETURN 

END 
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ec. Flow Chart 
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b. Listing 
000003 ¢e168 
000002 SUBROUTINE MATS2(x) 
000003 COMMON /INTCOM/ KR{20) 
ocoo0s K9(1)8KR( 19-100 
000005 Cal MAYS1(X) 
000006 RETURN 
000007 END 
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19. SUBROUTINE TRMBL - B19A 
a. Function 


Evaluates turbulent trangport properties and their derivatives with 
respect t) nonlinear variables. Called by RECASE, NONCER. Calls LIAD. 
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000344 OUMSAMILA, KMegadie DRNOTe RC BiGA @NEW 
000132 40 [EC TONETA) $0,998, 50 Peer 
000213 SO AM( Gd, MP7 83404 APJ ODUM 

000114 60 TO 44 

0003358 $5 Cabh '340¢Ks3.2,0UN) 

000116 69 HRUeMP yore 72y 


000537 IPCKRELF)S €2,66,65 
000418 65 WRITE (K0UT,640) REARR, SOY, RRP, RAPD, ARKO, VO! -YGS.OUML. DUN2,BV8 
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x 5 
co, om a Re a a to ep 12 Oem & o> 
€ 
% 
000119 byyDI@s YN" +94 QS ,ORHOT ANCL R, 10476 CAMCLAKsKOL07) Kad NEPME) + 5 
000120 2CAM(Sedde JeLeNNLEQ)+ ENLCa? 5 
000124 66 CONTINUE ¢ 
000122 OvGesMAX1(0. RCODVSE?) a 
0001423 AMC Le MATL) EAMG L MATL UD OSOVORE 
0c0124 RETURN 3 
oc0c125 1003 CONTINUE 3 
000326 Covee CALCULATES MIXING LENGTH and 37S OERIVITIVES . 
0001¢7 100 PrMePt 
000428 a rgGRT( aAS(RED/C2OO(CAPC( SAF (S42) -ALPHORHOVSOR(201)))1/ 
000129 1 CCAPC( LT) eVaP) 
000230 1E( to) 3091305102 
000431 and EPISEXP(=(PLOPIM)/2.60ETAC Ta)? ‘ 
070332 PLNsP1<PIM 
600433 LE CPLOs/P 12.0001) 102,102,105 
000134 402 PLSAMAXA(PT PIM) 
000435 P1pe1,0 
000136 aFes,0 
0n0437 EnPiei./P! 
000138 EQPP{ S92, /( PoP!) 
000139 ERP2s4./P1M 
900140 EMPP2e-2,/(PIMOPIM) 
000141 Gn TO 104 
ool 142 403 AESSORT(2,/PIDODETAC I @4)) 
600443 ERPIsSERP( AF /2,0P 1) 
000144 EXPPi ed, Ar oP TL OERPS 
. 000345 EQP2SERP( AF/2,0P1M) 
000146 ENPP201, -AFeP I MOERP2 
000147 104 BFSERPL-EPLeERP2 
0001443 OCLESERS 
000149 DML BDETAC 1-4)/2,eEP 10 ( AF ERP 2 “CL 
000150 CLECLOEP 1 4AF BF 
3 000152 ELC 1 SALPH@ELCON@(ETA(I)-CL) 
000152 Ee n2eAF JP 100(GE/2,+ERPPL/4, CAF API -EPLSERPP2/ 4, 0AF PIN) 
000153 QUMSeAF/2,@AF 
000154 DELP 120UN1-NUNZ+DUMS@ERPPS 
000155 DCLPMaDUNI +DUMZ-DUMS@ERPP2SEP! 
000456 {EC t=2) 3990320-320 
000157 305 EL(1)80- 
000158 Bo 307 Jzi/NNLEG 
000159 307 OLid seed. 
000160 cLs0, 
000361 OPi(a,2d8 CAPC(L) 
000162 DPLCSs2)8 FC 3g eDCAPCH 
000265 {PE CNSPML) 359,350,310 
000464 310 00 315 Kay NSOML 
octy65 3a8 DPL(Ked,a)8 FC3ed) © OCSPEK(K) 
000166 6a TN 380 
000167 320 Of 325 JeirNNUES 
000168 325 OLICJ)s OLIC I) © OCLL 
000169 330 DIiMae TREF @UCLPM@ELCON@ALPH 
000470 pDLitios DLICLIFCELCL@DCLLOEL ( 104) )/ALPS 
000171 
000175 pilc2ts OLlced ¢ pPi(2,4)6 BUM 
000174 OLICSI® OLICS) + oOP1¢41,.2)e0U% 


| 
Latet i 
000172 B34 DLTCL I= CULCLI ADP TCL) 3 e0UM | 
000475 DLICL+3)8 DLTCLe3) +0P1(2,2)900 

000176 JamaTive? \ 
000177 OO 340 KasUL,NSP™4 

000178 OLICJ® HLL) + oPL(K+3,1) @ DIM 
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a. Somes 20a 2. 2D + ane. «ten ow oe Ke ee YO DO: EP OMice om OD OOO Ae Oe 
e 


000179 JLSJOL-4 
000360 OLECULI® OVI UL) © OPI (KeS,2)e0UM 
000164 340 Jevematay 
000182 345 JF(La!) 380,400,400 
000183 350 TAEFs REDO/C26 /(2,9CAPC(I )SYAPOP{ oY aPeCaPC(!)) 
000184 OPL( 3,2) e-PI/TREFO(OCAPCH/CAPC( 1) ~ORHOH/(2,8RH0(39)) 
000365 OPT62e2)3 C10 COP 1 (3.2) -RHOVSeaLPH 
000286 OP3(1,1)0-C560C1000P1 (3,2) RHOVEOR( 2,1) 
000187 OPL(2sd) oe ALPHecieF (2,1) 
* 000188 IFCNSPMd) 362,362,355 
00038¢ 385 00 360 Ket, NSPMy 
000190 360 OPE (KO3.2)8=P] /TREFOCOCAPCK(K)/CAPC(Y ) oDRHOK(K)/(2,eRHO(L))) 
000193 362 Lal 
000392 DIIMaeTREFODCLP I OELCONGALPH 
000193 TEC$~2) 445,445,368 
000194 365 IFC T~NETA) 334,400,400 
000195 Ceees CALCULATES EPSi AND EPS§2 ©< COMPARES TQ GET EPS -+ CALCULATES EPS 
000196 C DERIVITIVES 
000497 400 GUMSSELC ET) /ALPHSEL(S)/ALPHeRED C26 
000198 C268eC260eC26 
009199 EPS SAMAXd(OUNT OF (3.1), P82) 
000200 EPS2eDVS/C265 
000201 TECEPSicEPS2) 405,401,401 
000202 404 EPSaEPS2 
000203 OFPCRENL( 19/6288 
006204 DO 402 Yet NNLEG 
000205 402 OFPS( J) 8AM(2,5)/062468 ‘ 
000206 DUMLe2,0e€PS/RHO< I) 
000207 GO TO 4{5 
o0o2ce 405 EPSaEPS 
000200 00 4140 Jsi,NNLEG 
000210 440 DEPS(J)82,08PS / ELCT COLIC) 
000243 CRPS( 4) 8DEPS( 192, 0/AL PHOEPS 
o00Z22 LPLENETAS {<2 
000243 OEPEseDUML OPLE( LPI) 
000234 00 414 Ja2,MaTiu 
000218 424 ORPEC UD EDEPS( J) -DUMLCBAL( LPI.) 
000236 DUML A EPS/RHO( 1) 
900237 415 DUMeDUMNY eORHOH 
000235 EPGA( 1) aEPs 
00Zi9 OEPS( 4} eLEPS( 1) C56 0C1040UM 
900220 OEPB(L4+3)m DEPS( [e339 e0UMeCZ5 
000223 JamaTiveltes 
000222 Lematig 
0n0223 00 420 KeNUL, NSPML 
onn224 IFC TONETAS 418,416,416 
ono2as 416 DEPCSOEPCeDUNOSPLE(1,K) 
000226 PO 447 Jussi Matay 
009227 Leber 
000226 417 OEPS(L) aDEPS(L ) -0UMH8 4211100) 
oo0c2z9 GM YO 419 , 
000239 418 DEPS(J)80EF8(U)+DUM 
000231 419 YadeMatay 
600232 420 DUMSQUN] OORAGK (Ket) 
600233 445 RETURN 
000234 1004 CONTINUE 
000235 Geeee MODIFIES ENL AND AM AFTER IMONE 
000238 Lated 
000237 SALPHeeaLPH/ Tyce 
000238 TFC Se2) 650,850,600 


-164- 


ty 
nae cane Nena Pa 


1 
] 





a ee ee Ce ee ee ee au lcerlclclcCc OO OOOO TCU VPC!]oO [On |B oeure ~*~ © Be we Gav's @ ~ 


Hants bent ener 61a BER 





600239 4005 CAATINVE 
000249 Cowoe MODIFIES ENL AND aM AFYFR JONLY 
000241 tel 
000242 SaLPHe ALPH/TTVC 
0c0243 600 [EPPsLeNETA~2 
9c0244 1S5F Fel 
000245 ONMBF(S2L)/SALPH 
600246 ENLOLO323F NLC 103) -0UMe(EPS@DEPC) 
900247 AMO LO3,12)8AM( 03,1) *0UMOEPS/ aL PH 
0c02468 CPABC2BSDUMSERS 
000249 9 605 JsisNNLE@ 
000256 605 AMC To3,J5)sAM( 13,5) ¢DUMODEPS( J) 
000254 CALL LIAD( $1,143, 1FPP,EPS/EAL PR) 
000¢52 MPVeMATiJ+l 
0cC0253 PRF81,-1,/PRT 
000254 EG156(2,L)/(SALPHOPRT) 
000255 EGSaeEPS/SALPHOPRE CCL 3eF (2514) 
000256 ESZSEFS/SALPHE(1,/SCTa1,/PRY)o(HP=CPBAR(L OTP) 
000757 ENL (MPU) ZENL (MPU) eEGL O( EPS @DEPC 2 =EG2-FG63 
000258 C3SSC3Z+EGLOEPS+EG2°EGS 
000259 AMCMPU, 2) 9 AM(MPU, 1) @EGL/ALPHOFPS «3, 0/ALPHOEGS 
ou0269 DN 410 Usi,NNLEG 
000261 610 aCMPU, J) 2AM(MPU, J) (EGISEG3/EPS) ODEPS( VU) 
900202 BMCH PUL OS) BAM(MP Joh o5) @PRE OCI S/SALPHOEPS 
0002463 CALL LIADC ed MPL, NETAOL @2, -PREOC1O/SALPHOEPS ) 
600264 CALL L190» MPU, 1SPP,EPS/(SALPHePRT)) 
, 000268 IFONSPN1) 680,650,628 
060266 615 ON 630 Ke1,NSPML 
000267 DUMBSP(2,LeK)/(SALPHeSCT) 
o0c2: 8 NP USMP YOMAT2U 
305269 CKE(KIECKE(K) +DUM@EPS 
000270 ENL (MF J) SENL (MPU) @DUMe(EPS-DEPC) 
“ 000271 AMCAP LS )BAMCMPJ,1) °DUM/aALPHOEPS 
0c0272 DD 620 weir NNLEG 
990273 $20 AMCMP ls ye aM( MBL, J) ODUMMDEPS( J) 
000274 630 CALL LIAD( Ks MP, {SPP,EPS/(SALPHeSCT) ) 
090275 650 JFCKR(17)) 660,660,655 
000276 635 wAITECKOUT, 640) EPSOUT 
000277 £40 FORMAT(/(1P30E12,.8)) 
000278 660 RETURN 
000279 END 
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c. Flow Chart 


Ronee aa eres ‘te Rees eda OD 


cBISA 
QUBROUTINE TRMBL<ILK> 
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1 CONTINUE 
READCKIN. 11> ELCON. YAP. C_NUM, SCT. PRT. RETR 
WRITE CKOUT. 2 2ELCON. YAP. CLNUM. SCT. PRT. RETR 










?-2 
TFCRETR.BT.0.) KQC10)=-1 









CONTI 
Ga auRiEs EPSx/NUE AND ITS OERTIVITIVES AS OVS AND R4Ct....) 


1008 
coer Lad 
COMMENT. RHOVER-DEL/ VIR ORHGY4-REDCRHOV/ (PENEALE) 


RED>-C3 












Coe-DEL/VMUE 
@RHOECIS) SUECT 
CLINUM 


TF CI-NETAD 5, 15,15 











oi 
1 
sf 
5 
& 
: 
¥ 
‘s 
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a 
Dun=yor/e .oRRFD 
LIMB aE (2.NETAD—CF C2, 1) 4F (2. 1419900.5 
DySsVSeYETs<DUNe DONT? 2.2 
1Ole- YD 7 a 












ORDeYDOO+ YD 
Gian IRCI)/2. T3<pue2 Dutt 
YOS"YDS+\D1 






15 DRHOI=-QSeRI/RHO(1>-F (3. 1>/12 .eYDOD/ RHOECIS) 
LReMATLU+I 
OUM=AM(LR, 12¢>6 DRHOI* RC 


ANL1. 143>8AMNC1, 1435-0 .SeRCOYDS+07 eDUMer (2.1 


IFCI-1) 20.20.25 





20 PHC1.3)=AMNC', 32-RC/RI9YDQ0/ 12. 


60 TO 30 


: 
‘ [ % CALL LIAD(-1 1.NETA-E+1.-RC/RISYDOD/12.> 














$0 AKCL. 1) SAMS 1, 1>-DUMOCTF (2, Do eF (2. 1) /ALPH 
HPUHATLU+i +1 








DQ 60 KeNUL. NSPME : | 


| IFCK) $0.40, 36 


35 URK-MATLU+HAT2I+1 
| DUM=AM (LR. K+124¢)% DRHOT*® RC 
| $0 IFCI-NETA) 50.55.50 cia eee ae ae 
| 50 ANCL, APJ SAMCL. PUD +O am eee 


| 60 TO CO aa 


t 
4 { 
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50 HPd-MPU+HAT2 J 


TFCKRCLT D> 6E.66.65 


YOT. YDS. DUM 


K 


‘ - 1. DUM2. DVS 
4107).Ke1,NSPML>. 





Posse oA GRATES MIXING LENGTH AND ITS DERIVITIVES 
CVSROOT tn 
* 


JFCI~1) $05,905,101 


191 EPI=EXPC-CPI4+PIM)/2 . #DETACI-1)> 
PID=PI-PIK 





| IFCPIO/PI-.0301) 102 102. 103 


102 PI*AMAXLCPT.PIM) 
PIO=t .0 
AF =1.9 
ERPi=1./PI 
ERPPL=-2./<PIePID 
ERP2@1./PIN 
ERPP2=-2 ./<PIM*P IMD 
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103 AF *SORTC2. /PIDODETACI-1>) 
ERP 1"ERPCAF/2 . «PI 
ERPPiz! .-REePICERP 
ERP2=ERPCAF/2 OP IAD 
ERPP2* 1. -AF*PIMCERP2 












104 BFeERP1-EPICERPR 
DOCLL=EPI 
DUMI=DETACI-1)/2 . sEPI@CRFeERP2-CL> 
CL=CLs€P1+RF sBF 
EL¢] =ALPHEELCONSCETACI>-CL> 
DUM2 “RE /PID*CBF/2 .tERPP1/ 4 AF ePI-EPICERPPY/* . eAF oP IK) 


DUMB =AF/2 . oRE 
OCLPIsDUM 1 -DUM2 +DUM3¢ERPPL 
DCLPM=DUM1 +0UM2-DUIB eERPP2SEP I 


| IFCI-2) 306.330,220 
| 309 EL<1>=0. 


| DO 307 J=1.NNLEG 










907 DLICU>0. 


a a at aw 





| ~~ TF<NSPML> 960,350,310 


310 00 315 Kel.NSPMi i 











ee 


60 TO 360 = 


PL LS ae 


Les a 


as | 
3L5 OPECK43.19= F<3.1) + YPCKCK? 7 
a i 

{ 
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| Vol. If 
| ; 
325 DLI<d@ OLIts) + OAL 
30 OUM=—TREF oDCLPHeEL COHOALPH 
DLE Ls OLICL+CEL CIO -DCLLOEL CI-1))/ALPH 
1 2)0DUN 
DO 340 KeNUL. NSPHI 
DLi<d>= OL](J> + DPI<K+3.1) * DUM 
JLeJ+L-1 
OLICUL)= DLICUL> + DPI<K+3.2940UM . 
340 JaJ+MAT2U | | 
co .sCAPC TD aYRReP Ts TAR SEAPCCID > ° 
@ COCAPCH/ CAPC (I >~DRHGH/ C2 . eRHDCT >>> 
3.2 )—RHOVS¢ALPH 
: @0P1 (3.2 )-RHOVSOF (2. 1D 
eF¢2, I> 
DRHOK (K)/(2. eRHOCT | 
OUH=- TREF #0CLPI EL CON¢ALPH | 
| IFCT-1) €85 645.765 | 7 











ee ceo 


| Toi 





Seda RE TOTES 










36S IFCI-HETAD 331.400.4900 






Ceeee CALCULATES EPSL AND EPS2 -- COMPRRES TO GET EPS -- CALCULATES EPS 
C DERIVITIVES 


400 DUBISEL C7 20 OLPHOELCT)/ALPHERED/ C26 
EPS1=AHAXLCDUMLSF<S, 1), EPS1> 
EPS2=0VS/C26S 
| IFCEPS1-EP62> 405.401.4901 
401 EPSmEPE2 
DEPS@ENL (1)/C26S 
f OO $02 J=l.NNLEO 


————| 


= 402 DEPSCJ)=AC1. J>/C26S | 
i 
| OUM1™2 .OSEPS/RHOCI> 
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[es 60 TO 415 - 
| 805 EPS=€Po! 7 aegis FS 
00 410 J=t-NNLEO 
| 410 DEPS @J)8.9EPS 7 ELSI ODLICSD 
~~“ DEPS¢(3 } =CEPEC1)-2 0/7 ALPHOEPS aes 
CPI=NeTP*t-2 
OEPCs-DUMI*FLECLPID 


oe ree me ne 


nae ___ [eis Tara \edbcmnee tee ea 





ane ape ar a 


Sa <——- 


TO ee ns era eevee em = ae come — 
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| 416 DEPSCI) eCEPS (J -DUML OBA (LPI. JD | 


OO $20 K=NUL, NOPHI 


FG TAD 418.916.4616 


ote -RUMOGPLES 1 K3 






OC 417 JJeol. MATE 


LeL+1 


a — OO OOO 1 
qi? CL DEP SC L>-DUMOBRE C1. JJ? 


418 DEPSCJ)=DEP SCJ >+DUM 


19 JaJ+MATES 
420 OUM=OUM120RHOKCK>1> 


| 
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6t3 Oo Kot. Nar 


esa ole ma Peat 
eicinitey 
GY Sek.) CUMOCEPE-DEPCD 


WHCHP J, LeAMCHPS. 1)-DLM/ALPHOEPS 


630 CALL LIADCK. HPS. 1SPP.EPE/< 


> 
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20. SUBROUTINE TRANCR - B19T 


a. Function 


e Evaluate terms required for consideration of transverse curvature. 
Calied by SETUP, NONCER. Calls SLOPQ. 





b. Listing 


ooooc,s cayerT 

000002 SUBROUTINE TRaNCR(1GO) ONES 
6000035 OIMENSTON ORH3(993) B197 OO3eNEW 
ocooose COMMONS COEC IMS C5.06,07,C0-C9,C40,0219.012.6i13.014-C198197 4enew 
oooocs 1661600276634 6C19,C20 0621 ,62200235624,0255026,627 4 C28.C29, 5300631, 081 OT SONnEW 
0O00Lé 29206330634 103906366637 163806391040 004450426649 16446,0645 046,047. CHNBI OF 60NEW 
000007 3,649,650,C051.092,0653.0654,059,094.097,098,099,C60,682.C62:663,C64,C8197  7ONEW 
000008 46% 10660067. C68 ,CO9 CIO CI1 CIF S079 607450750676 1C77CIBsC79 COO COIBIIT BeNEW 
900009 5,£82,C83,C04,c85,C06,C87,CO8 8197 OONEW 
000919 COMMON/SCOECONs CHLC B),CK2AC BdeCKSC 8),CKOC OF2CKS( B),CKAC 8) B197T i109eNEV 
000011 1,CK7C BY,CKBC 6),CKOC BY,CKIO0 A),Cw116 8),CK126 8).CK130 A) Bi98Y 310NEL 
000012 Z,CK14¢ B.CKIS( 8)CKIGL BdeCHST7C B,CKIOC O,CK19( 69,CK20( 3) B19 120NEL 
000023 SeCK2G0 B),CK22C Odo CKKLC By OY5CKKZC HA, BY,XM(5),NXECS) XSPCS, 9) BLOT LIOENEW 
000014 4,CKK3( 8, 6) 8197 240NEW 
000615 COMMON/EDGCOMs PE( 40. 2),PTE(40, 1),8PE( 6,40, 4),O0UES,8197 i150NEW 
000016 AUE (S30) RHOE C40). VMYE( 40). 7E (40) UF DCE, QUEDGE ,DQUEDG. VMWE, WE ,C9* Bi9T 16°NEW 
000017 2 ,081P(40),S0SIP, TIVE, TV¥CC(40) B197 17ONEW 
000018 COMMON/ET ACOMsETAC3S) ,DETAC S$) .MS0(14),0CU0149,81614),82(14) B197 LAONED 
000019 2,L426153),841643,18),802(30.135) B19Y 19°NEW 
000020 COMMON/HISCOM/ES ,C20C3,C4, ALPHD, BETA. 2M( 4,134) 2664,14).78P (46,14, ABLIOT 200NED 
900021 L )0X%2640), HEC 15,.59,66 (15,3) HEP CI5.3, &) HALPH, HUE MHUE.HEW,OLX2 BLOT 240NEW 
000022 2,034(40),GETAM( 40) B19T 22eNEL 
000025 COMMONS INTCOMS KRC20) KIN KOUT MAT}, MATZ) MATidsMAT2UNETAL1,IS,NBI07 230NEW 
000024 15,17 NTIME,NSP,NSPM1,NAM,NLEQ,NNLEQ,NANL, I1YS,KAPPA,CBAR,CASE(SS) BIOT 240NED 
300025 2,868), MWE NON KOC 10), ITEM, NITEM. MALI ONBT,NBT2, [OENT,KRO( 40) BLOT 25eNEW 
000026 3, KAUXO, ITIME, JSPEC MDS) B19T 26eNEW id 
000027 COMMON/NONCOM7AM( 493.153) OVNL (953), 7CMe B19T 270NEW 
000026 AVLNKw sOLPNS 8d,OLPKC A, 9),OTHW,OTKW( 6) FLUXIBC 9) Bi9T 26eNEW 
000029 COMMON/PRYCOM/TIME( 50) PREC 40), PTET( $0),GE( $09,5(40),ROKAP(40) B197T 290NEW 
000030 2,RNOSE, VK AP NDISC.IDISC( 40) NSDC1N) MSDC(ECI,ITEC 503,1PRE,RAONO, 8197 3JO@NEW 
000033 2CONE, RAOFL( $0),RAOR(40),RA408(40), 1 RAD B197 SLONEr 
600032 CAMMON/PROCOM/PR( 15) 07115) RHO( 15) $0015), CAPC( 45) ,QR(19),M(15) B19T SJ2eNEwW 
000053 LeCPBAR( 15), VNWC15) PHIKC15, 8),NRHOH,ORMOK( 6),2K( 8),DZKW( 6)» ABIGT I3eNEW 
000034 AMiSKC BY/OMUAK( B),OTK( 8), OPHIKHS 6),0PRK( 8),08CK! 8).DCAPCK( 8)B197 I4eNEW 
000055 S,OWTILK( 8) +-DQRK( 8)-OCPBK, 8),0CPTK( @),OMUL2K{ 6),DZKK( 6, 8) B19T SSeNEW 
0030356 4 DPHIKK, 8. 8)o’ OMU4H OMUSH/ONTILMOVMULZ.CTCTROCPTIL»MTIL BLOT SJ6ONEW 
000037 5,VMU3 OTH, OCAPCH, DPRN,OSCH,DQRH,CCPBH, OCPTH,OMUS2H,VMUC4S), RHOP B19T S7ONEW 
000038 6645) ,PHIKPCIS) oP LTP, 2KP( 8), VMUSP.VML GP, MTILP, CRHO( 24), GMR( 45) B19T JOONEW 
600039 COMMON/TEMCOMs/SPOUM( 6), DER( 40) ,.0UMM1 (15), 8L0PE( 15), REDUM( 49) Bi9T J9enEW 
000040 4, 8DUM16 40)» 80UN20 40) FWOUM( 40)» XTCONC 40) .PHCONC4SO) PWINITC 1) B197 40NEN 
000043 2 ,XEINTTC 1)-0U08( 40) Bi9y 41 0NEW 
0060042 COMMON/VARCOM/F( 4,45) ,663.15), 8763.25, 9), aLPH B19T s120NEW 
000043 GO TO (4001.1002,1003,1004). 160 NEW 
000044 1001 Lowes eNEW 
000045 1#CKR(6)) 20,20,35 e435 
090046 20 Lime NSO(4) 

000047 DO 25 [8e2.L1" 

000048 @ouUMaC 38) = SCIS) © §(13) 

000049 28 SOUM20 48) & 1, -ROKAP(18)/5¢18) 

09000590 SOUMI(1)20, 

0000513 8NUM2(1)80, 

060052 CALL SLOPQ(LIM, SOU%1, SOUM2, DER, DER) 

000053 DO 30 [Se2.LIM 

000054 OuMel, © SOUM2(18) 

000055 30 TVCCCIS) # SQRT(4, eDER( IS OCOUMeSOUML( IS eDER(IS)}6 SHUM2¢18)/SOuUM 

000056 13¢18)¢(1,eDUM))/0UM 

000057 TVCC(1) & SORT(6,e0ER(41)) 


000058 LOowWs2 





020059 
300099 
0c0ce: 
606962 
0co06s 
3coohe 
3cOc6s 
300066 
900067 
5CO0C68 
ocoeégs 
050070 
ocoo71 
cc0072 
900075 
960074 
090075 
c00076 
900077 
C0078 
ocea79 
000089 
000043 
occoe2 
000083 
o0does 
000085 
000966 
0¢6687 
go00088 
000089 
000090 
900094 
900092 
o0ca9s 
000096 
900095 
000696 
000097 
000096 
000099 
000100 
000101 
000102 
000103 
000104 
o00i1cs 
000106 
000107 
000108 
000109 
000110 
ocoits 
0001412 
000113 
000114 
000115 
900116 
000117 
000128 


35 
40 


45 
5c 
55 


1902 


ILet 

fECMNISC) $0,80,40 

i420 

LIMONCISCo1 

or 45 [$s r Cw Lm 

4emS0C11) 

COLL SLMFUNSOC IE. SemMd, ROKAP CH), DERCM), CER(*)) 
a“sMelL 

L984 

[EMeMeNSOC IT) 94 

DS 45 $Se“mM,1GH 

TVCC(IS) « SQRT(1,-DER( 1S IeCEI( 1S) )/ROKAPC IS) 

Dn $5 [831,18 

TVCCCIS) 8-TYCC( 15302, eC3ME IS )evMUE( IS) 

RETURN 

CONTINUE ONE « 


CALLED IMMEDLATELY AFTER ICOEFE Obn4 


115 
120 
125 


130 


135 
14C 


145 


150 
155 


240 
165 
1003 


1ECte1) £15,115,125 

RuSs0, 

D* £20 JeceNNLEG 

ORHS(J)8C, 

69 TO 130 

I Dele3 

S1Xs06, 

G? 70 140 

INOs} 

S1X06, 

C27eDRHOH 

DO 435 Ke1,NSPM¢ 

CH110% )@ORHOK(K) 

1ECfeL) $452165,140 
DUMaDETACT=4)/2, eRHOE CIS) /RHO( END) 
JF(KQ(9).LT.0) OUM8eDUM 
RWSeRHSOOUME( 2, +RHOP( IND) /RMOC IND ODE TAC IL <3)/S1X) 
DUMB eDUM/RHC( IND) 

LPSahATI Ve INDos 

TF(NSPM4) 155,195,145 

LOT eLPs 

00 £50 Kei,NSPMY 

LPL eLPyoMaT2J 

DPHS( LPT) SORHS(LP] }@DUMOCK11(K) 
OumMeDUMeC27 

ORHS(LPS) © ORHS(LPS) + OUM 
31MeDUMeC7eF(2,IND) 

ORMS(INDe3) & ORHS(IND53) @ OUM 
ORHS(4)8 ORHS( 4) @DUM/ALPHOF (2, IND) 
TEC IND@1) 130,160,160 

TTVCBAMAX1(1, ORHSOALPHOTVCC(1S),0,0001) 
RETURN 

CONTINUE @NEW 


CALLED IMMEDIATELY AFTER {MONE rel 


1004 


205 


INDeled 
DUMLeRTVCCCIS)/TTVC 
G9 70 205 


CONTINUE NEW 
INOS} Oeny 
DIIMLaTVCCCIS)/TIVE 

OUM2s0UMieC28 

OUM3SENUMLs C32 
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000119 AMC ToS eA SAM LES, 1 ODUM2eRHS 
600320 Ma MATiJeol 
0co321 at(M, 1 )6aM0%, 124 DUMSeQHS 
000122 OUM2sDUM20eALPH 
006123 DiM3sOUM3Se ALPH 
000124 Of 210 .ist, ‘NLEQ 
090125 AM*CLo3, JeaM( foS, J) *CUMZeORME( J) 
000126 210 Av(™%, J)8AM (4, JIODUMSCORHS(y) 
000127 1E(NSPME) 225,225-215 
600128 215 Of 220 KaisNEOMi 
000129 OUMSSDUMLeCK6(K) 
000136 MeaMemaT2y 
000131 AMCM, 2) 8aM(M, 1) eCUMSORHS 
000132 DUM3eDUMSeALPH 
000133 00 220 JsieNNLEQ 
000134 220 aM(M,J) « AM(M,J) © OUMSCORWS( Y) 
000135 225 RETURN 
} 900136 €N0 
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c. Flow Chart 
ceistT See een ee, Se eres 


SUBROUTINE TRANC (160) 


GO TO <1001, 1002. 1008.100¢>. 160 


1001 LOw=1 
IFCKRCOD) 20,20,35 


20 Lit= NSOCL> 


Oo #5 IS$=2-Lin ae | 
= ~SOUNICIS) = S¢CIS) © &(IS) 






00 20 [8=2.LI6 






30 TYCCCIS) = SORTC4§ . eDERCIS>@CDUM-SOUMI CIS @DERCIS))+ SOUM2¢IS)/ 
11¢78)6¢1.+0UM>>/DUM 





IFCNDISC) 60.60.40 





ee 
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40 LiteeOi8cei 


% < 
(AL NEOCTID. SCH. ROKAPCH). DERCH>. DERCH)S 
Fé 1 He 





0 00 2 1.15 


| : CCC ISda-TVCCC IS OF .oCOMCISIOVILE CISD 


"bo 180 “1. NACE 


C500. 





OO 48 Il dH.LIM 
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@0 70 Lao 









140 “T=1)/2. SRHOECIS)/RHOCT 
IF CHOC) .L.1.0 
C1. 2BHOPC IND) /RHOC IND @DETACI-1>/3IX> 





LPIA ST+aATE J 


= {50 DRHS<LPT=LRHSCLP ID eDUeteCK 11K 


ara ——— amare aes 









d 


~~. 








APWL-TR-69-114, Vol. 47 
fectinect orc ae * Oe 
wr : AE ny 
CBIR Do CRMECL DAIL FL Pier Ch TD 
ir Ce 36. A + 
een OL ct 
CALLED SOPRDEATELY AFTER THOME 
Buntie-TVOC< 189/ TIVE 
, 


a Sr Tis | 
As 


DUM I@TVCCCIG>/TIVC 





00 210 591. WMLES 


C - RACT+S. JosAMCT+E, 3 p DAHB (JD 
10 AAC). J) sAHCH, J>-DURORHSCI> 
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al. SUBROUTINE EQUIL (KQ, 2, PRR) - B20A 
a. Function 


Control program for computation of chemical state of the system. 

Performs such complex functions as settina up for different types of solutions 
(isentropic expansion, stagnation point, boundary layer or wall), recalling 
stored values of boundary layer sclutions and reinitializing cmitted species, 
reevaluating absent atom array, deleting molecules based on absent atom array, 
and, with the aid of subroutires, evaluating properties, controlling principal 
iterative loop, and reinverting and attempting alternate paths when convergencs 
problems occur. Called by WOMNCZER, REFCON. Calle CRECT, MATER, PROPS, RERAY, 
THERM, DUMCOM. 

KQ =#® Plag which controls chemistry options (see Portran variables list) 

z = Enthalpy (when used) 

PRR = Pressure 
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peepee pare 


a sate ee ae 


000001 
000002 
000003 
000004 
000005 
000006 
090007 
000008 
000009 
$00010 
000011 
000012 
600013 
000914 
000015 
000016 
000017 
000018 
000019 
090020 
ocoo21 
000022 
000023 
oo0o24 
000025 
000026 
600027 
000026 
co0029 
000030 
000031 
000032 
000035 
000034 
oct03sS 
060036 
000037 
000038 
000059 
000040 
000041 
000042 
000045 
000044 
000045 
000046 
000047 
000048 
000049 
00005¢ 
600091 
600052 
600055 
009054 
000052 
000056 
000057 
000058 


Listing 


C8208 6204 
SUBROUTINE EQUIL(KQ.Z,PRQ) 8208 
INTEGER FanOa,F an0a 9208 
EQUSYALENCE(TUC 72), TF) .(VNU,CI YU) 8204 
OIMENSION CIC 72043, 7F(2) 6208 
DIMENSION 4PE(16,169,88(16) 9204 
DIMENSION VLAMC 74,19, KCLA) GAME 72,190K0010),0QNRNL( 72,1) 6204 
EQUiVALENCE( aM( 74)sD09yRWL¢ 76),GaMK, VLAM) 6204 
CAPMON /BLOCOM/FamMOa 71),FAMOBC 729,N oFRO 72,959,003), LEF C10 B200 

1,LEFS(10) PLEASE, LEFw( 10> 0204 
COMMON/BUMCOM,S BUMP, CORMA, EASE, ICCRM, WOOT, TF2,1777,D7EMP KIM, Ie B208 
COMMON/EDGCOM, PE(40, 1),PTEC40, $),SPE( 6,40, 1), DUES, 8204 

LUE 40). RHOE( 40), VMUE( 40), 7E(40) UFDCE,DUEDGE  DEUEDG.VMWE,4E,C90 6204 

E ,DSIPC 40), 1081", TTVC, 7¥6C( 40) 8204 


COMMON /EQPCOM/ RBC 71,2) RCC 7952) ,MO 7452) eREC 74.2) ,RF( 7452),8208 
1 TUC 7202)00FFC TAF FA TECE 74), ATAC10)  ATBC10),ATCC20),WAT(S0). 8204 
2 HATC1ODSARCIOD TS AMRCIODSLAMEC 72).P,ToTKELOs 79,VNC 72), 6204 
3 VNUC 72.20), STFF sKR2,MCHONCV, WM ,WTMC 7E9,VC P29,VW 729,666 72) 8208 
4 ,70¢10, 7), EPOVRK, SIGMA, BaSnnt, 6204 

COMMON /EQTCOM/SIP,4IP EL LENL FEIG, CPF, IRE, LER, AALSTS.IN- IL STs 88208 
1 MODE HMELT. SMELT, TMAX, THIN MELT sSUMN, SUM. WS.USS,01,19P2,19P0.  B20A 
2 16, KKJ, SVA, SVB, SVC, S¥O,SUMC FEE, CHF, EP AVeIPCUC WTC, WTL JC .HG, 8208 


3 CPC TIMING PIMAX L2oh Ss lB612), 08610) EBL(10) 1 A016,16),8616), 6204 
4 1P¢ 74), ALPC10),ENUC10), GAMM(30) GAMEC 10), CLAMC109,0( 74),8V8, 8294 
S CPC 72) ,HC 722,686 71d,TCC TEd.VENKE 729,8( 72),PNUSC20), 8204 
6 20620) BLNKC10) ,BY619), 180610) BELLO. Jut 4) 6204 

COMMON/FLPCOM/TXI (2), TUE( 2) TRHOE( 2). TTEC2) -TVMUE( 2), TMAY(S66,2) 8208 
2, THE CLS oa) LEFT C1062), TPEC2) - TRE0S{ 2). TOSIPC2) ,KOT(2) 8208 

COMMON/FLXCOM/DELGWsDELUW( 8) ,D9NL(253) -DUNL (153, 62, WALLO 6204 
LpVALLIC 0), Sw, VKH 9), TRWALL 8204 


COMMON /INTCOM/KKA( 20) KIN KOUT MATS] MAT2[ MATL eMAT2J,NETAsII, 8204 
Bh O8 es LTE AT Lea ee? mena e enemy cer WuLE Gs NONe en LT et iacearceans 6204 


2C08E(15) 8068). MWR NON, KOCIC)  JTEM,NITEMSKRGZ,NBT,NBT2,1DENT.» 8204 
3 KRO( 40), KAUXO, JTIME, UBPEC MOC St 8204 
COMMON/NONCOM/AM( 233,153) ,OVNL (4593), 7CW. 8204 
AVLNKW DLPHC 9) ,OLPKC 5, 0) ,OTMWLOTKW( 8), FLUXBC $) 6204 


COMMON /PRECOM/PR(L5) T7619), RHOC1S) 80018) CAPCC 19), QRC15) WHC ES B20A 
1, CPBARCA5)  VEWCES) PHIKCAS, B)eDRHOM,ORHOK( AD,ZKC B),DZKMC Bde “B20A 
ZMUSK( B),OMUAK( BI,OTK( Bd ,OPHIRHC B),OPRK( w),O8CK( 8) DCAPCK( 8)B20A 
S,OMTILK( 8) sDQRK( B),OCPBK( 82,OCPTK( 8),OMUL2KC 8),02KK( @. 6) 8204 
4, DPUIKK( A, 0), OMU4H /DMUSMONTILM/VMUSZCT,CTR,CPTIL TIL §=B204 
5, VMUS OTH, DCAPCH, OPRH, DSCH,DQRM.OCPAN,OCPTHeOMUL2H,VMU(S5S), RWOP B24 


6649) PHIKPC AS) HPLTP,2KP( 8), VMUSP,VMUSP MTILP,SRHOC14s,CMRC15) 8200 
COMMON/ VARGOM/F (4,359) ,623.19),8763,35, 9), ALPH 0204 
COMMON/WALCOM/FUC 40, 1),7H040, 2).WHC40> 1)0SPwl 8,40, 4) 620A 
L»MHOVW( 40, 2),FLUXIC 3,540 LI ,INWL ITH, LFW, LSP. IRHOVW, TFLUXY 8204 
EQUIVALENCE(B,X) 8204 
2 FORMAT(4034,3F20,5) 6204 
2 FORMAT( JOXOHTEMP 8F10,4,17N DEGeK PRES *F8.4,47H ATM MOL wO20a 
4t 944.7) 8204 
SD FORMAT( /87H SPECIES PAR, PRES, HeLOG~PP LOG=PP L°820a 
160KP FLAG ERROR cP o(1K204, 4613,5, 19, 2813,5)) 8204 
@ FARMATC/L0X60H CPoFROZEN CPoeQUIL «=OLNM/DLNT = ALNM/DLNP GB20a 

.aMma /10%5E12,5) 620: 


7 FORMATCI3,F8.2,12E10, $/91X3E19.3) 


A FORMATCAOXAOHENTHALPY ©8644.7,204 CAL/GM ENTROPY 06€12,5,436 CaL/8200 
26“=-DEG K/10X SHDENSITY #€13.6, AH LO/CUFT) 20a 
6 ECRMAT(//) 8208 
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m) 


sak Ae 


ww Tk 


000089 9 FoRMaT(Sx SHVEL — 3.46" FT/SEC mach 8E10,.3- 9M AREA 8E10,38208 058 
000060 2,12 SOFT/LB/SEC) $264 05° 
000061 10 FORMATCAIOXA7HERACTION LIQUIO oF 8,5) 8208 040 
006:362 42 FAMMATCOFIO.4) 6204 061 
066063 o7ueso0. 

000064 orpepty 

090065 LeFures 0264 063 
000066 TYM{Ne2SO, 0204 064 
000067 Trmaxe2000C, 

000066 17820 8204 065 
coocse 100 

000070 1Nved 

000073 ZPEASE CP IEASE 

000072 T10Ne1S00, 

000073 18P 0183 8204 066 
000074 00 302 t41,6 

000075 302 KR ED AKO( 1) 820s 068 
000076 MODESKR( 3) 8204 069 
000077 PePRR 6204 070 
900078 KR¢8)e0 

000079 KACO )OKR( 6) 04 8204 072 
000046 1P(KKRC989°6) $021,3023 ,3022 

000091 3024 KRC7IOKKR( 28) 0S-9 

0000e2 N7BSLOKKAL 18) OS 

o0u0es 60 TO 3023 

000086 3022 KA¢7)00 

000085 N7OKKR( 189010080 

006086 3023 17(KR(S)-1) mabe seaisce . 
000087 CoeeoesSENTROPIC EXP 6204 074 
000086 304 sepapincnginr cea). 8205 075 
000089 {ewe2 0204 076 
000090 TIONETA 0204 077 
000093 GO TO 324 8204 078 
000092 CoeeeegPAGNATION POINT AND INITIAL... "ION O20 079 
000093 306 1eWe2 B20 080 
000094 KAC8)80 

000098 {TFPeD 

0000%6 PIEASESO, 

000097 K966)80 8204 061 
006095 HIPe2/1.8 8204 082 
000099 m1 T@ed 6264 083 
000100 TTeneva 8204 084 
000203 7203000, B20a 088 
000152 wme20, 8204 086 
000203 AasPeun 6204 087 
000304 OC 309 f09,18 

000208 309 aLPct}e7acl.4) 8204 089 
000106 RACE) Ood 8204 996 
600307 1PCITEM*S) 390,308,350 

000386 308 JRCKKAC2)°2) 311,590,312 

000309 320 1F(KRC6)) 322,330,350 620 092 
060330 341 LEFUP © 04 

000311 iF UKER(G2)¢4) 364,255,304 

900132 CoaeeeBOUNDARY LAYER 0204 993 
000133 312 ALP(ts)e0, B20a 094 
000134 Del ai ga 

000115 WH1PaZ/1,6 8204 096 
000316 ALPONSP 04 8204 997 
600117 JE (NGPMS) ay tats34440343 

000118 343 00 344 Kei, NSPMd 
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0003129 
000420 
000121 
000122 
000423 
0001324 
000125 
000126 
0601427 
000428 
000129 
000130 
000431 
000232 


000433 - 


000234 
000155 
000136 
000337 
000138 
000139 
000140 
900141 
000142 
000345 
000144 
000145 
000146 
000147 
000148 
000149 
900150 
000153 
000252 
600153 
000154 
000155 
000156 
000457 
000158 
000199 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
600269 
000170 
000173 
000172 
000175 
000174 
000175 
000176 
000377 
000178 


314 
3141 


315 


316 


319 
320 
Coeaee 
324 
326 
322 
323 
327 
329 
328 


Coece 
330 


33! 


333 


3331 
332 


334 
335 
3351 


ALPCKSSPC LTT KYSWIMCK) 
ALOENSP) SALP( NSP) @SPC1+0 15K) 
ALPCNSP)saLP( NSP) /WT4 (NSP) 

Of 329 f91,NSP 

aRPHs0. 

apPusd, 

00 315 Ks4,NSP 

OreMsCl UCL, KeALP(K) 
AOPHMOAMAX1( ARPHM, ARS (OUM)) 
ARPHEARPHSOUM 
TECEI,EG.2. ANN LEFWCL) EGsL) LER I )e2 
TEC ARPr~ COOL OARPHM) 336,326,319 
TEC11,€9.2 ANN LEP CE) .E0.4) LEF CI 320 
LEF CL )s-1 aBS(LEFII)) 

LEFS( I De-TARS(LEFSI1)) 

CONTINUE 

{FECITEFE) 326,390,390 
@acCEPT RESIDENT VALUES AS FIRS? GUESSES 
1E(TeTION) 328,394,398 

ITEFOITEFS, 

JECI{°1) 323,323,322 

poad 

6” To 380 

IF CITEF) 327,329,329 

1ECKRZ¢4) 328,329,328 

GN TO 339 

LEF (NSPS) )8-] AGS(LEF (NSP od )) 

IF(LEFUP) 393,364,393 
WALL SOLUTION 

1ewet 

ITFFael 

Tye 

CHFL JX eW( 3) 
PLEASESP EASES, 9A90(1, 0-F ASE) 
K2(7)8MAXC(KR( 7), KKR( 16905.) 
TFECTTCL9/9.8.G7. TFINOL)) KRIB)84 
TECMODE“1) 333,331,333 
TTMINSTT(1)/1,8°800, 
TrMaxeTT(4)/1,6¢800, 

WR(8)80 

“@(KR(B),E0,4) CHFLUXee$, 

09 332 Ke1,1§ 

TEC LEFCK)) 332,33313.332 
TECWCZIOTK(K LZ OCHPLUXOTK(K,L3D6LTLO.) LEF(KI 82 
ALPCKIBTOCKeL2)@AMINGGO. H( 2) OTOCKLSIOAMING (CO, W(S)IOTO(K,4)® 
2 aMING(O,,.WC4)) 

wSeew( 4 ow(2)ed(3) 
WSS@CAMING(S, WC) DOAMINGC DO. WO2) DO AMINIC Oe eC)? 
OC 335 LeNnS?, {$8 

0% 334 €eq,1S 

GAMK(K,L) 00, 

Game (L,4)80, 

GamH(L)ad, 

GaMF (Led, 

LECNSPML) 3361,3361,3358 

OM 336 ¥s2,NSP 

GAM (NSP) eG AMH( NSP) <DGJRNL( 2.) SWTM(NSP DOS. 8 
GAME (NSP) BGAMF (NSP) “DOURNL( 1.) /WTM( NSP) 
ALPONSP) SAL PCNSP) OWALL UC Kg )/WTM(NSP) 
ALP (Hed BALP( Kad OWALL (Kod sw PM( Kas ) 
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6204 
8204 


8204 
A204 
8204 
8204 
8204 
B20a 
0264 


8204 
8294 
6204 


8204 


B204 


8204 
8204 
8204 
B20a 


B29 


6204 
B20A 
B20a 
B204 
B20a 
8204 


B204 
B20a 
B2o4 
B20a 


009 
100 


102 
103 
104 
108 
106 
107 
106 
aNEw 


131 
143 
115 


116 


148 
139 
120 
122 


129 
13¢ 
131 
132 
133 
134 


136 
13? 
138 
139 





000179 GAMW(K=9 ) aDQJRNL (20K) /WIM( Kod 909.8 B2Ha 140 
000160 Gam (K— 9 eOQIRNL (2K /W TMC Kod) B20 141 
000183 DC 336 KKs2,NSP 8204 142 
000242 336 GAMK(KK~4 NSP) SG AMK (KK og NSP oGAMK(KKe Sd Kol) B20a 143 
000185 3361 DN 3362 Ked.1S 

000284 D9 3362 yalSP.N 

000185 3362 VLAM( U.K) sWSowtM( J) eGAMF(K) 

000386 DUM ¢ sNSPMy B20a 144 
000487 D0 340 Key NSP O20 145 
000188 GAM ¢ K) 2eGAMH(K) 

000189 SumGed. B20a 146 
000490 1E(NSPML) 3392,3392,3304 

000191 3991 90 339 KKei,NSP 

000392 JECKKOK) 337,339,337 6204 148 
000393 337 SUMGESUMGOGAMK( KK, K) O20 149 
000294 339 CONTINUE 6204 150 
000198 BUIMGaSUMG/OUM1 6200 154 
000196 ALP CK) 9< ALP CK) OBUMG/WTMCK) 

000197 3392 09 338 KKad,NSP 3 

000298 338 GAMKEKK KH) O—(GAMK (KKK) SUNG) SWTMCKOWTACKK) 

000199 09 340 KKei,NSP ; G20 157 
000200 00 340% Jel8P.N 

000203 S40% VLAM( Je K OVLAM( Jp OG AMK (KK OK I@YNUC Je KK) 

000202 340 GAMK( KKK) OCAMK CK K )OMTMIKK OG AMF(K ONS 

000203 CoaeeeoRECALL STORED VALUGS OF BOUNDARY LAYER SOLUTION AND “  @20a 159 
0002064 C RE“INITIALIZED OMITTED SPECIES O20a 160 
000205 350 IlettelG 

000206 PINS1 ,E~4eP J 
000207 PINL@ALOG(PIN) 

000206 LIMONSKR( 8) 

000209 00 354 IsieLIM 

000210 LFCLECKR)eL) 342,342,341 6204 165 
000231 342 1FCCLIOLECE 1-3 B204 166 
000212 GO TO 345 O20 167 
000233 342 JECLFCK 16S) 343,345,545 O204 148 
000214 343 JFCCLISIFC( IOS B20 169 
00215 345 JF CIFC(I)) 346,340,346 8204 170 
000236 346 VNCLICFRI TIS 30P 

000217 ATs ahs} 8204 172 
090218 ¥¢h)00, 8204 173 
000219 TOCVNCT)) 347,347.354 620a 175 
000220 347 LECT dees B20a 176 
000421 If Cle48) 348,348,354 @20a 177 
000222 346 ycsjePIN, A204 178 
000223 Go TO 3830 

900224 349 JRCPRC1, 11) 387,397,392 8204 180 
000225 337 iptyneyy) 394.3951 ,3998 

000226 390 IFC oles) 353,391,395 

000227 359% VNC LOPIN B20a 183 
000228 69 TO 383 B20 184 
000229 392 VNC TOFRC LLL) eP 

000230 393 VOU ISALOGCVN( 142,035) 

000233 3530 JECEle2) 354,3931,394 

060232 3934 [F(18e1) 354,3532,3532 

060233 3532 yebpeYw(t) 

000234 TECFRCT149°4,E930) 394,3933,554 

000235 3933 VNCSCEXPCYCT)) 

00023¢ 354 CONTINUE 820 187 
009237 TeTTChids1.8 B20a 188 


060238 TPC TeTION) 355,356,556 





cule 4 ie 


e 
000239 355 LEF (NSPoq eo] AAS(LEF (NSP41)) B204 190 
000240 386 whevNWCTT) 
000241 flelieiG 
000242 IECLEFUP) 364,364,393 
’ 000245 CeoeeeeREEVALUATE ABSENT ATOM ARRAY 8204 193 
000244 364 JTeMODC ITEM, 2901 
000245 DO 382 Ks1,NSP B20a 196 
000246 LEFW(K) #0 @NEW 
000247 LEFS(K)OLEFCK) 
000248 LFEFCKISISIGN(LEFT(K. JT) LEFCK)) 
000249 LFCLEF(K)@2) 369,365,382 8204 198 
000250 365 JF(1SS-2) 369,366,367 
000251 366 JECKKR(6)=-1) 569,369,367 
000252 367 JECKKRCS;) 369,369,382 
000253 369 LEF (KI SMINOCLEF(K),0) 6204 200 
. o00c2s4 LF CKKR(9)=2) 370,382,381 ONE W 
000255 370 DuMie1,0 B20A 202000; 
000256 DiM2s0, 8204 203 
000297 JECNSPML) 3724,372253701 
000258 37013 ON 372 Je1,NSPMi 
oco259 DUML9OUM1L-SPWt UU, ISS.ITT) 8204 205 
000269 372 DUMZROUM2+SPW( Up ISS, ITT ICI UCK J) 8204 206 
060263 372% J&(4BS(OUMS 241 ,E°7) 376,374,374 
000262 374 DUMSsOUMZeDUML OCI CK NSP) 8204 204 
000263 376 JF{OUM2) 362,382,380 6204 209 
000264 3A0 LEF( KIEL 
000265 GO TO 342 NEW 
000266 BOL LECWOZIOTKI KM, L2IOWCSOTKCK LSS LT.0,) LERWICK) ed NEW 
000267 362 CONTINUE B20a 212 
000268 GO TO 393 8204 243 
000269 Coeomo{NITLAL!ZE SP(.+) AND VNC) ON FERST STAGNAVION SOLUTION O20a 214 
000270 304 {TFFemNETA 6204 215 
° 000271 NCVeO 8204 246 
000272 7¥(2)83000, 
009273 v4wea)e20, 
000274 KRAZeKKR62) 
000275 LE CKR2.LT,0) KR204 
000276 1P(KR2.EQ,1) GO TO 387 
000277 3865 OF 386 Kei ,NSP 
» 000276 01 366 Tex, NETA B20a 220 
000279 SPC LoL eK OALP(K OWPM(K ) 820a 221 
000280 $P(2,7,K)00, 8204 222 
000281 366 SP(S,1.K)00, 8204 223 
000282 wta)ad. 
000283 we2)ed, 
000284 w¢3)cd, 
000265 LEF(18)s3 A20a 224 
000286 LEFS(IS)83 
000207 DO 3868 123,N3P 6204 225 
000288 LEF(I)80 8200 226 
000289 LE CTKCTL2)) S068, 38666, 3867 8208 227 
000290 3067 LEFcyiss 820A 228 
000291 3068 CONTINUE 8204 229 
000292 3A7 OO 388 $91,18 B20a 230 
000295 TF CALPCT)) 393,368,308 B20a 23; 
000294 338 CONTINUE C20a 232 
000295 OO 388% Tei NETA 
000296 00 3681 vyaei.N 
000297 3061 FRCY,180, 
000298 00 392 {214,158 820a 233 


7-209- 





o002se VNCE)@AMAXICVNCT)/P0,7,ALPCT eda) 6204 234 


000300 LPCTFCCE)) 390,391,390 8204 235 
000304 390 FCCI) 81 B204 234 
000302 yctje0. B26, 237 
000303 GO TO 392 Oca 238 
000304 39% VOT} SALOGCVNGL)) B20a 239 
000305 392 CONTINUE 8204 240 
000306 CeooeefELETE MOLECULES BASED ON ABSENT ATOM ARRAY B20a 241 
000307 393 LamhOsi 

000308 00 3971 Ksei.18 onew 
000309 LECLEFCK)) 394,3930,3934 000d 
ooo3ic 3934 [ECPIEASE+,99) 3931,3934,3633 

000341 3930 JFCPIEASE-.01) 394,394,3933 

000312 3033 IPC LEFS(K)) 3932,394,3934 oNEW 
006313 3931 LEC SIENETA) 397,3932,307 B204 2446004 
000314 3932 IEC LEFCK)@3) 394,307,394 B20A 2450004 
000335 394 00 396 Jei,N B20a 246 
090316 SFC TABBCLEC( I) )91) 389,389,506 B20a 247 
006317 369 TFCMOOCLAMS(J)/LAMD,2)) 395,306,305 

000318 305 vNCU280, 

000319 TFC UIAIFC(U)=3 9204 250 
000320 396 CONTINUE B20a 252 
000323 Jar fR(K) B20k 2h3eeey 
000322 TECLECCU91) 3963,3961,397 8204 254 
000323 3964 LFCCUISIFC( UIO6 Olde 298 
000324 397 LAMOeLAMpe. aNd 

000328 LEFCK) SS ABS CLEF(K)) oNEW 
000326 397% LEFS(K)s1ABS(LEFS(K)) eNEW . 
000327 COoeeeDELETE CONDENSED SPECIES FROM BOUNDARY LAYER 

000328 LFCKR(G)) 3960,398,508 

000329 3900 DO 3984 Jei.N 

000330 IFCLABSCIFC( 2292) 3986,3981,59904 

000333 SOG LPCEZIBIFC( U3 

000332 vnc J7e0, 

900333 3964 CONTINUE 

000356 398 JRCKRE7)-4) 23,2%3,1902 B20a 258 
090355 CoooevGVALUATE PROPERTIES B20a 259 
000336 470 CPFOCPF/AA : 

000337 TFCKRCO)) 1703,1932,1702 

000338 1702 G80, 

000339 HL90. 

000340 wthe0, 

000344 RAVARVES(RVeRVS) /EASE 

000342 00 4703 Jaden 

000343 LP¢SFCC I) £703,1704,1705 

000344 £704 HORHGOYN( J) eH( YU) 

000345 GO TO 2703 

000346 1705 HLSHLOVN( J)eM(U) 

000347 WTLOWTLOVNC J) eWTM CY) 

000346 4703 CONTINUE 

000349 HIPe(HGe( HL WIL /AAOHG)/WEI/AA 

000350 GO 70 1932 

000353 £701 SNe1542 

090352 1GEMING? 100, -KKR(20)) 

0003535 Cari, RERAV( IN, A10,000.0016096) 8204 263 
000334 ALFoaC2.1)/A(102) 0204 265 
000355 CSPea,/( acid yeaa) B20 266 
000356 BETMePO( aC 2,2) -alis2)eaLFies, B24 267 
060357 TFCMOOE*3) 19312,1932,1034 B20a 268 
000358 1931 CSPeCSP/T B20a 299 


-210- 





000359 
c0036c 
000361 
000362 
000363 
000364 
0003u5 
000366 
000367 
000368 
000369 
000370 
009371 
000372 
000373 
000374 
000375 
000376 
000377 
000376 
000379 
000380 
OvO381 
000382 
000383 
000384 
000365 
000386 
000387 
000386 
000389 
000390 
000391 
000392 
000395 
000394 
000395 
000396 
000397 
000396 
000399 
000400 
000401 
90402 
000403 
000404 
000405 
060406 
900407 
000408 
000409 
060430 
000431 
000412 
000435 
000414 
000415 
00G4i6 
000417 
000438 


1932 CALL PROPS 8204 
wMeaa/P 
GaMei, ALF 
GAM3i./(1. *BETH=1 .98K9/AAOGAM/CEP OG AMoP) 
GURC TI) sGAM 
TFC KR(5) 292,195,194 B20a 
495 [FCMRI7)) 14,141,194 8204 
194 WRITE (KOT, 4) CPF,CSP, ALE, BETHX, GAM 
17Se<1 8204 
CoeeeeQuTPUT PACKAGE 8204 
19 wMeaa/P B20a 
1902 wAITE(KOUT. 2)T,P,WM 8204 
WAT TE(KOUT, 1904 )w 8204 
2991 FOKMAT(SX4OHRELATIVE MASSES OF COMPONENTS 3,2 AND 3 3642.5) 8204 
SHIP BHIP 6204 
SePeS|P 8204 
wIPeO, 8204 
S1Pel, B20a 
DO 20 J#i,N B20 
HIPRHIPOHC JI@SIGNCVN( J) oWTMCU)) 
20 S1PaSIP+ VN(U)@( SAC J) 04. 966004( y)) 8204 
NsN@KR(8) 
HIPOCHIPOVNCMELT )OFLIQOMMELT) ha B204 
SIPa(SLPovNC MELT )OFLIGOSMELT)/Aa 8204 
AUReP/TOWM/2 3146 6204 
WRITECKOUT,&B) HIP, SIP, RHR 9204 
IFCFLIG) 204,205,204 8204 
204 wRITECKOUT, 30) FLIQ 6204 
205 jF(ITS) 2053,203,203 B20 
208% TF(KR(S)-2) 203,202,201 B204 
201 HCHSHIP B204 
202 VELSQ8(HCH-HIP)e2, 0204 
VMACHSSORT( VELSQ/GAM@WM/(1,98490T)) B264 
VEL@SORT( vELSG045054,) 8204 
VEC ISS) sVEL 6204 
fF (VEL) 2021,2021,2022 
2022 aREasd, 
GO TO 2923 
2022 aREasl./( VELeRHR) 
2023 weTTECKOUT,9) VEL, VMACH, AREA 
203 3€(10G) 2036,41203,1203 
1203 {FC ITS) 2031,2036,2036 O20: 
2031 00 2033 182.N B26a 
2035 VNC ED SVNC TSP O2ca 
WRITECKOUT 2032) (FAMOACS ) sFAMOBC TD SVNC JD, 3@L0N) ,, 620s 
09 2035 Jei.N 8204 
2035 VNC T)SVN« IOP 8204 
IF CMODE*%) 2034,2037,2034 8208 
2037 wRITE(KOUT/ 2038) FAMOAC UC) Famoac ve) 8204 
2038 FORMAT(22H SURFACE SPECIES 1S 244) 20a 
2032 FORMAT(/S(SX7HSPECIESSKSHMOLE FR.2X)/(5K204,6:..5,9K204,632.5,9N2aB20A 
14,€12,5)) B20a 
GO TO 2034 B204 
2036 WRITECKOUT,3) CFAMOACT) ,FAMOBCES,VNCT),OVOLI MCRD VLNKCTD, LPOCT) eB 200 
4¢t), CPC), Tea.N) 8204 
2034 wRITECKOUT, 5) 0204 
NeNeKR(A) 
TESUTS) 14,1021,1024 8204 
1021 HIPeSHIP 6204 
sipessiP 8208 


-211- 


270 


ari 
272 


276 
277 
278 
279 
2ec 
261 
202 


284 
2485 
2n6 


268 


209 
290 
294 
292 
293 
294 
295 
2% 
297 


209 
300 
301 


305 
3U6 
36? 
308 
309 
310 
34a 
312 
343 
334 
345 
316 
33? 
318 
320 


321 
322 
323 


000419 
000420 
000421 
000422 
000425 
000424 
000425 
630426 
000427 
000426 
000429 
00u436 
000431 
0904352 
000433 
000434 
029435 
000436 
060437 
000436 
000439 
000440 
000441 
000442 
000443 
000444 
090448 
000446 
000447 
000446 
000449 
000450 
0004354 
000452 
000455 
000454 
000435 
000456 
000457 
000458 
00045¢ 
006460 
000461 
000462 
000465 
000464 
000463 
000466 
000467 
000468 
000469 
000470 
000474 
000472 
000473 
000474 
000475 
000476 
000477 
000476 


CosceeePRINCIPaL ITERATIVE LOOP Oz0a 
22 IFCITS) 109-210,109 6204 
109 JE(MODE) 114,141,320 8204 
1093 [7SelTSey 
110 CALL THERM 6204 
Zid MODESKR(1) 6204 
1AGed 
FLI@s0, B204 
CaLL MaTER 8204 
B198(1) 8204 
213 MOEe1 8204 
TFCKRG7 =) 2501,220, 2402 8204 
2102 {2Qe~2 2204 
WRITECKOUT,2100)(1,1-1,18) 
210 WALTECKOUT®7) LTS, Te Ad EL ENL CMF, CECI) Lede $8) 
2100 FORMAT (SOHSITS TEMP PRESemWT EQUIL ER MASBAL ER SCALE 7(33, 
274 “ASBAL)/9OX3(13,7H MASBAL)) 
2101 .eCITS) 2103,221,22% 8204 
2203 I8(MODE2) 170,2104+170 8204 
2104 TwaceT 8204 
Gf 70 470 6204 
221 1TSelTSor 8208 
SEC T7850) 2219,2229,222 
2219 SFC ETSEN7) 22,2222,2222 
222 $RCKKRCYS)) 2226,2226,2228 


2228 
2000 


3017 
3018 
3019 


2226 


2220 
2222 


22 


2205 
2207 
2206 
2208 
2200 


2203 


WASTECKOUT, 2000) 

FORMAT (///2X,90He*<-F OLLOWING OUTPUT NCNOCONVERGENTewcenncncrmun 204 
pat preter ne LARA CACC HIRES AT RTT CLMANE Ree 
ZFROT, H 

WRETESRGUT JOLT ISS STEM LL eMITS LTS, 1G0KRCG) HIP SIP TTC ET) 
WRITECKOUT, 3028) ALP 

WRITECKOUT, 3019) LEF 

WRETECKOUT, 3010) FRET S10, S810N) 


FORMAT( 715, 2K1P5E22.5) 

FORMAT (2xX1P10611,4) 

PORMAT( 272018) 

14Qee2 8204 
KROP) OL B20a 
178e0<t 

NCVENCVOL 8204 
NON@NGYV 

TPENCV"O20) 170.176.2220 826A 
M1782400 

66 TO 170 

KACI)ES 

10Qee2 

60 70 22 

TSPQeIN@iLoL S204 
tcTve1o 

oumys9, 

DO 2205 j01,)SPO 8204 
OS(1)eB(T) B20a 
6O 70 2208 6204 
00 22063eIL.1SP0 620A 
Bct)e861) 8204 
DO 2204 191,1SP0 6204 
00 2200 Jei- 1SPa 8204 
APECT Joeatt. J) 620A 
teC $92) 2204,2704,2204 B204 
FECTFC(C 1-221) 220422204, 2202 B204 


-212- 


324 
3<5 
326 


327 
328 


329 
331 


333 
334 
335 


337 
338 
339 
340 
34% 


344 


330 
352 


355 
354 


356 


357 
358 
359 
360 
361 
362 
343 
364 
36% 
366 


eva 


000479 
000480 
00048; 
000482 
600483 
000484 
000485 
000486 
000487 
000488 
0co489 
000490 
000491 
000492 
000493 
000494 
000495 
000496 
000497 
000498 
000499 
000500 
000803 
000502 
9090503 
000504 
600508 
900506 
000507 
000508 
00050° 
000510 
000541 
000512 
0005%3 
000514 
000515 
000316 
000517 
000538 
000539 
600520 
000521 
000522 
000523 
060524 
090525 
000526 
000527 
000528 
000529 
000530 
000531 
000532 
000533 
009834 
090835 
000536 
000537 
600538 


2202 


2203 
2204 


2209 
2210 
2212 
2213 
2250 


2228 


2229 
2227 


2214 
2215 


2216 
2217 


Cooseetr TRYING TO PUSH THROUGH TMIN OR TMAx @~ REINVERT AND DT TO ZERO 


2224 
2223 
227 
220 
2224 


229 


Bc 1)sc. 

ud 2203 Yel. {SPO 

bPECJeT 320. 

APE{$,J)80, 

APECT, 1224.0 

CONTINUE 

162100 

CALL RERAYCIN, APECIL IL) O30 1h 90100, 16026) 
rerTelcrT-4 

IECICT-100) 222,2209,2210 
19Qs8-2 

IFC1G) 2212,.2221.2221 
IFCINV) 2216,2213,222 
1FCKR(6)} 2227,2230,2230 
64081 

DC 2229 Kai,1S 

JaofR(K) 

IFCLFC(U).67.4) CO 70 2229 
00 22286 JulsNn 
TECVNG I), GT.1,.E°30 «AND. MODCLAME(J9/LAMD12).NE.O) GO 70 2229 
CONTINUE 

LEF CK) s-1AaBS(LEFCK)) 
LEFR(K)8= {ABS (LEFW(K)) 
tNVe0eld 

17Ss1 

GO TO 393 

LAMOeLAMOeL Amd 

INVeed 

PIMaPed ,£=S 

DO 2215 [ston 

IFCSEC(S)) 2€15,2214,2235 
VC LIOVNC TOP IN 
YOR)SALOGCVNGT)) 

CONTINUE 

Go TO 143 

1F(KRC6)) 2217,222,222 
1780999 

GO TO 141 


IEC TOTMIN) 2223,227,220 
TaTMIN 

GO TO 1991 

IF €X€1)) 228,220,220 

IF (TeTMAX) 223,229,2224 
TaTMaXx 

GO 70 £094 

TECKC4L)) 223,223,228 


CoeveelF NEW CONDENSED HaS NEG CORRECTION, NELETE AFTER REINVERT 


225 
226 
225 


2252 


IFCSER) 226,212,226 
IFCXCTER) 42.Eo4) 225,212,212 
ON 2282 Is1.1SPG 

aClER,T)00, 

acl, TER) #0. 

BSC IER) 9-3, E =A 

ACTER, TER)82,0 

GQ 70 2207 


Ceeeeese 3,£, ERROR AND CORRECTION ON T OF CONFLICTING SIGN, REINVERT 


212 
215 


Coveenon S,E, 


1F(MODE-1) 224,213,224 
1F(X(1)0B1¢,00001) 228,218,218 


-213- 


6204 
6204 


B204 
820A 
B20a 


B2Na 


B20a 


8204 
8204 
B204 
B20a 


B20a 
B204 
B204 


If DELTA LN 7 .GT, «9 REINVERT NO OT TF EL AND ENL ARE S4aB208 


367 
368 


369 
370 
371 


375 


374 


378 
379 
3a0 
361 


384 
385 
346 


308 


I oy 
ata aaa eenementet a ate eminent ad 


090539 
000546 
000343 
000542 
020845 
000344 
o09s4s 
000546 
000547 
000546 
000849 
6005SC 
000551 
000552 
000553 
000854 
000598 
000556 
6005537 
800938 
o06sse 
000560 
000561 
000562 
C00S63 
000364 
ooAses 
000566 
000867 
000568 
00056¢ 
000876 
000571 
000873 
000573 
000874 
600578 


210 16 ¢ 0086004 95-0.09224.226,226 
Coeecee{® CONVERGED EXCEPT FOR Y ON & 92 § OPTIONG <- NON CONVERCENT 8204 
226 1F(MODE<3) 2291.214,2288 e258 
2280 1F(EL0200, 08M 99, E-4) 222.222,2264 6264 
GeeseeOn 6.E. OPYICN RESULTIN [Kk CONFLICTING ERROR/CORRECTION Of YT PUSu 8204 
Coeceesss OTWER BALANCES RELATIVELY COCO, SET Y TO THENs Tmax aS PER PARORE20s 
CoeeeeanD GO 7D THERM (1F 7 ALREAOCY THERE © NONCONVERSE) ELSE DY To ZERCOZ04 
214 17 (00818219300. S(ELOENL)) 2204,219,235 8204 
245 TYMNeT?T¢ 1973 .8-909, 
TYMAXeTIMIHOZ 006, 
19(O2) 236,296.247 
216 LECTOTMIND $70,27022168 e2ts 
226% TeaMaxs( TOT, TH#2N) 
rrmaxedl 
5 rueOTd/2, 
$0 TO 1093 
217 IFC TOTMAX) 22713.4750176 
2172 TaaMyNa( THAN, ToOTY) 
TYPMINeT 
orcedtys2. 
60 70 1094 
228% X¢ad26, 8708 
“ObE#0 S20¢ 
[uefNed B2oa 
iL 62 0204 
$0 70 2707 8262 
224 = =1FCK(2)01,922240,2249,2249 
224¢ 8$£2)90. 
4(2,2)84,€25 
$6 70 2207 
2249 CaLl, CRECT( OE) 
TMINATTMIN 
TMaxeT Tax 
TECKRIF 94) 24528539 8204 
41 PLEASES Sve ase 
RETURN 
ENO 8208 


~2l4- 


402 


697 
408 
431 
412 
413 


415 


47 
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T 00 339 tml. el 


—— II 


SUND=@UNB/ DU 
CPCK (K) + SUNG HTMCK> 


CK. KICK CK. KD SUMD/ TCI OTIC IK? 
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358 TFCII-1> 253.351.2532 


$61 YNCID=PIN j 


[a OS. 1k mo TO 359 
352 WNCs =FRCL. Ther 
353 Y(1>=-ALOBCWNC1)41.€-38) 


FCII-i> 254.3691. 369 


3581 S-I> 359. 3892. 39532 


32 ¥CToeYWCI> 


IFCFRCT. 1>-1.€-30) 254, 3533.35¢ 





C1TD/1.8 


FCT-TION? 388. 356.356 


385 LEF (NSP+1)=-TARSCLEF (NSP+1 >) 


| 356 WeVAID 


-223- 





abla egligs ASE 


wes 
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S60 STHOOCITEN. £541 





IFCKAR(S2-2) 370.382.3981 


370 DUMIe}.6 
OUNZ=0 . 
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GUM1=0UM1~SPHCJ. ISS. ITT> 


372 DUMZ=9DUM2+SPWCU. 188. ITTOOCIUCK. JD 


PBt (COUN 1. E~?) 976,374,97¢ 


[set OS? SURE +DUHT CT IeK. RP? | 


3701 DO 372 Jel. NSP | 
i 





360 LEFCK>=1 





$02 TFCUCE OTKCK, LE ORCS OTKCK, 


—nnay 


304 SA iti La 
€1)#3000. 
VNC 120. 
KREAKRE > 
TFCKR2.LT.0) KREot 


a _JFEKR2-EO. jy e010 907 


-225- 4 | 
it 


a ea ce a els ee nese A 


spate Ae tg Biel 














IF CLEF CKD? 39¢, 9930. 3934 


| 9 RASE- 99> $991. 9991. 9939 
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l ? ae. 
500 30 4900 Jel. amecrs | 
CIMBECIFECID)-1) 3440, 9001.99 
s 
$391 ifccJdeiFUcs)-3 | 
wise0. | 
H oS we pbace. 
| 





ie 
of 


| ts a 
RVORVE+ CRV-RVS)/ERSE 

———_ — I 
DO 1703 Jui,N 
U 







1700 HO=HB+VNC UD HCD 


IFCIFCCJ>? 1709, 17046. 1705 
= 


+ 
86090 
229% | 


[TT 


Gettin Dun ee 45 ooh AR eet a Sed eae ke ee ia een a Se a | 
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(RE |] 
zs 7 


rye 204 
(30k, ~180R (29? 

: PAA ciN.A.8.8.0.0. 10.18) 
8.19/03. 3) 


cK: RG. 20-1. 


RE -5) 1801. 1882. 1801 


Bal.* (KOUT.9> CPF. COP. ALS. SETH. ORM 


ed 
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HI PeHI Pods OC LGNCYNGd >. WTP > 


bet conn EY ww 
Thottieeera: T3/ AA 


SIP .PR 








Vel Sa/ ese (1. 98680T>> 
VEL Cyl Soessoee, 
UEC ISS? 8 VEL 


IF CVEL? £021.2021.2022 | 


: ee) Sees 
rere: 1 —______||| 


e 8668 
23) HB 


“ a 
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21 IFCITS) 108.116. 108 






TEC? -1) £101.810.216e 


os 
 WRETECKOUT.£100)¢I. Ie1, 18> 
T10 WRITECKOUT.1> 118.7. AAEL. OL OF CECI) 1s) 
2100 FORMAT céouiITs TEré T EQUIL ER MAOBRL ER SCALE C19, 
17H MROBAL>/S030¢13.7H ) 


2101 IFCITS> 2103.221.221 
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foto See ee 
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FCITO-WY> Of.2222. 2222 


222 TF CORCISD> Lees. Leze e228 HY 


sem 








tee eres eta WIP-S1P, TYC11>/ALPCID/LEFCI 


3 ih TT. MITS. ITS. 16, KRC6). HIP. SIP. TT<TI> 
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22. SUBROUTINE THERM - B21A 
a. FPunction 


Evaluates current thermodynamic properties for esch species, which 
data are required for evaluation of errors and correction coefficients in chen- 
istry solution. Called by EQUIL. 
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23. SUBROUTINE MATER - B22A 
a. Function 


Evaluates current errors in chemistry solution and seta up matrix of 
linearized correction equations. Called by EQUIL, calls KINET. 
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SUBROUTINE MATER 
DIMENSION VLOMC 71,2), x¢26) 
EAUIVALENCE( aM( 74).VL am) 
DIMENSION CLJC 7454)-7Ft4) 
DIMENSION ECO 71) 
EQUIVALENCE(TUC 72)-TF)e(VNULCIU) 
COMMON /BLQCOM/FAMOA( 74),FAMOB, 749,N oFRE 74,49) ,NC3S9 LER (10) 
1,LEFS(10), PEASE LEFW(10) 
COMMON/B' IMCOM/ GUMP ,CORMA, EASE, }CORM» WOOT, VEZ, 1777, OTEMP,KIP. IX 
cas JEGPCOM/ RBC 724.2) .RCC 7402) ROC 7452),REC 72,2),RFC 9902), 
4 TUC 72022.0FF( 722,FFA, FCC Fee Oe PEAO TERT SOE NATCL 0} 
2 KATC10)e IRC10) 18 ,KRC10) cL AMEE 72) Po ToTK(A0s TOLVNE 78), 
3 VNUC 71,10), 2 TFR KAZ, HOH ONCV WH WTMC FAVE 71d, Vue 74)»66¢ 71) 
4 ,70¢40, 7) EPOVRK, SIGMA, BASHOL 
COMMON /EGTCOM/SIP HIP EL ENL »PLIGsCPF INE, TER, AA, ITS. IN Ihe lTe 
1 MODE sHHELTs SMELT, TMAX, THIN, MELT, SUMN, GUML, WG, WSS ,B%, 1602, 18PQ, 
2 18P, KKJ,SVA, SVB, SVC, SVD, SUMC PRE. CMF EP RVs SFCUC WIG HTL UC HG, 
3 CPG, TTMIN, TTMAN LReL3, 10692), E8616), 800620) .0016,26),0686), 
4 TPC 72), AbP6102,FNU( 10), SAMHC10), 64M C 30), 8L4M610) 0% 72),AV8, 
: CPC 72),H6 74),8RC 729eTCK 729, VENKC ve)s8t SPENMENISE SON 
@ 8CC10),BLNKCL0),O¥(30). 186190), BECSO) dul 4 
COMMONJKINCOMSAY FRPLLO) BAKCAO)eERR0 40) PNUL100109 oAMUL 10, 400- 
4 BRCRO LOS COROEECOR ee te SREE SO PILED: 
2 PRMU( 10,10) -BRSECL0 
COMMON?’ SNEOR/AN(A83, 483) DVML (133), TEWs 
AVLNK Ws OLPHC OP ,OLPKC @, O9,0THK, orkw( 0) FLUNWEC 9) 
MOMMONS INTGONSERRGO) KIN RUT 
EQUIVALQNCE(B,X) 
wSSews 
0O 5 184,38 
TACcCLISIFCC I) 
TFCKRG6)) 40,20.20 
1F ae 25240.40 
09 35 194,138 
we tieced joa) 35,30.35 
TBCCT 80) 
CONTINUE 
RVBUSSWIL/VIG 
IF(3TS,00,0) RVS ORV 
TE (KACP 24) 70.49.90 
tf (378) 70.60,76 
WRITE (KOUTCSS) FFF IWTL WIG. AGO RV, ALP. PNUG, SLAM 
FORMAT (32H FRE LWTL WTC Ade RVSALP/PNUS/SL AM, SXSEL2,9/¢1%10812.3)) 
KPCTIBKR(T 99 
IF (KRCF) 0S) 70260270 
WRITE (KOUTLOS) (1,902,358 
FORMAT (SOHSITS TEMP PRERONW? COVin ER MASBAL ER SCALE 7135, 
174 MASBAL)/90X3(13,7H MASBAL)} 
INITIALIZE 
EL#0. 
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OOSeNEw 
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4SeNEw 
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PNUS(f>2)00. 

ZERO MATRIX 

00 80 cane tere 
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GO TO 340 

WNC Lo2 SYNE o2) /BUNC 
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o2 
SET FLAG INDICATING pd Srna OF SPECIES IN Mase 
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UF (VNC ToRreBBLCtoRl} 4200120,343 
ef)0e 

TREAT orecies Rta ts Be oe wor NTING lai 
ELESENTS fT 1h SANE Nr eonteneas 
37 (3OCC108d0%) ya5ni28/a88 
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1h Loz) lez 
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If (MODE=1) 260,470,260 
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ACKOZ, 1) 02WTM( $92 20(PNUS(K)/WTGOG AMPK)? 
ACL TIMACT Ded, 
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000320 190) LF (TFC 1-2)6,001-7) 329,195,105 
000123 198 = 16 (UC) 208.205.2090 
000122 200 1F CYC 1-2)"8YC) $25,375,208 
000323 208 BICSY( 1-29-ECD{ 1-2) 
i” 000124 JCSUC 
rs 000128 THaXett (1-2) 
14 000126 uCst~2 
q 000427 IFCUCEIBC( 3-2) 
bk ‘ 000328 1® CKRCO)) 210+210,280 
FE 000129 210 0-402, 5C82900, 
2 000130 4(492)8-3,0 
p 000133 B11 )08UC 
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= 000134 219 VASYN( 3-2) 
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j 000194 ye cred) 255,295,260 
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! 000256 Vas (QVeq, eva 
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; eooase 16 t 
; 008270 2¢s WO6e6RC 1-2)-4, 98880V( 1-2 )93.00/-7 nat 
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090372 30Q = HOBO 1-2) vay 
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000494 
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CONTINUE 
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EC UEC IIMECH Y? 

Fae aeSi ew); 
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CONDENSED SPECIES 
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Seboc, 
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24. SUBROUTINE CRECT (MOE) ~ B23A 
a. Function 


Corrects state variables and composition, principa) iogic being in- 
volved with limiting corrections such that instabilities in the iterations will 
not occur. Called by EQUIL. 


MOZ = 0 or 1 if linearlization done predominantly on equilibeium or 
mass balance relations, respectively. 
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2 189, £45, Sv8, SVE, SVC, Sv, SUMC FEF, COE EP. Rv. SECI UPS. WIL TC ee 
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© 1PC 729. 0bP7016) F210) Came 579.619): SL aml sey. Ove 72), Rve, 
5 CPUC 7Ed,ME 742 BBO PEreVlC 79. Vite PEIEC 729,00 G0103, 

@ 9C(10) Oa 90) OV630),18c(10)}, O8(18).usl 4) 

EWIVALENCE(S¥2.CV) 

OLMEnS yOu OVat1.13 

EWIVELERCE(O. ND 

CLIMOAMANG(S, ,e(PIOWES) PS, 2oxTe 

aTLeC. 

a°TE00, 

0 =P ePol E-7 
RP ePol Eos 

OL PesLOC Bue, 

C-#e3, 

asf 

of 20 ye2,is 

TF (IBC JBC Joi)? $5,389.20 

JassOty) 

TEC SOTO teks 

Jal Jod 2eN4 

Cet 

6% *¢ 26 

18( 3381060 

CONT SNUE 

1© (e+ 28.28,5 

2801$¢2)81800 

mel8(2) 

“184 

LsiSe2 

Teo 

ceed 

Litevene( ai 

OM 2A0 [ked,E5™ 

feje, 

1© (1e-58) 39,29,45 

Suanctyeo, 

TSEC TEL t) 

PxUS( i305, 

TE CHECLT beh) 39,355,758 

Cvilext(to2) 
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O23a 
6234 
8236 
o23a 
023s 
e234 
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000305 
000106 
000107 
000106 
000109 
0001320 
000431 
000132 
600135 
000134 
300115 
000136 
600117 
000118 


70 
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es 
90 


109 
310 
115 
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140 
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350 
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168 


470 
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165 
1990 
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260 


209 
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215 
220 
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1€ CLFCCI ICL) B7S,468.40 
1 CIFCCED) 209,639,230 
2& CIFCC L208) 79,90,9C 
f€ CIFCCS)) 70,99,89 
vVauw€( 3} )-TCCf enta) 

0? 635 yor,18 

1% (3O@CC J} 66,60.89 
VasvsovMnsts,yexi yo?) 
CONTINUE 

Ovieya 

6o To 0 

1© C1Kk-1@E) 75,90,75 
Oviedo, 

6. 19 275 

ICC B88 

Oviext1ER) 

GO TO 230 

Leet 

IF CLeolER) 90,65,96 
OViex(t) 

60 TO 230 
OVIGeOWTCOYNG { DeDYILewTN{ 3) 
16 ¢3PC8)3 He aah adh 
1F CIRM) $09,149,109 
1% CYNE <QUMP) 3100360,308 
1 (HOES 203,195,439 

1© (OVI) 320,279,329 

IF CuNC 1) Be, 


39 279,279,390 


9099995 — CMF COV 
COUP vind $901 eC OOY]) 135,275,275 
9999995 )/0V1 


i 
Cel VAC!) /BUMP-, 
6 70 275 
Cro ( CUP VNC 1-9, 7DVI 
Go To 275 
1¢ (POE) 175.178,1386 
meme. 
me f8( 3) 
4 (OVI) 199: 279,160 
IF (COVLeCHFe 908) $65,279,298 
16 COYSeCMh<,)} 27922735190 
CHE 0- , 999/071 
Go YO 275 
c™e8, 701 
60 T6 2t$ 
1€ COV LeCHF-2,363) 166,100,298 
1f (OVieCME +g, 900) 185,279,278 
Cu 0~-6.909/0V! 
GO 79 27s 
C™#e2,393/67! 
© 70 275 


EF (VCS AA PoaBB(OYS eC) 275,200,200 


ChE oe(Y( 3) GULP) 788 (OI) 

6 70 275 

NONCPRESERT BaSE 

SE (KR(6)) 295,290,210 

TF (THTECTO.001) 275,285,235 


1F CVCTOCMEODYI $6.9) 275,220,220 


Oumie(.d-v(1))/0¥1 

1F COUMZ*,003) 275,278,225 
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000239 
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000247 
000146 
900149 
000150 
000151 
occ1s2 
000155 
000154 
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340 
345 
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355 
360 
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OVTPLSOwT, oDY feuTP( 1) 

1© (OYE) 235,275,250 

16 (vNCI2) 290,290,240 

i CvNCTIODY I OCME) 245,250,250 
CF sevit1)/0VI04,00001 

J€ (<2¢6)) 265,295,255 
CLLPsaBS(CLIMs/UT(1)) 

1E (aB6CCFODYI @CLIP) 275,275,260 
C#OCL IPs aBS( OVI) 

Co 70 275 

1© (aBS( CF epys PP) 279,275.270 
CMF eP/a8S (OVI) 

ChFFC I OCMe 

Ov tm eOvy 

1F 66R(6)) 200,285,285 

AVL OAMANE(.1,82V72,) 

CAF CAMING(C% WIGS E" (APS COWTL@SuTC sw TEOWTL ) JRVLeDUTE)) 
1F (HR(7)-3) 335,3 300 
GORMAT CAXZCEXZMVNS LHYSX2WOVIXSHECALE 7KIMEQNGHIEC 1P)/( 104, SEL0, 
23033,8201%144,5€40.-.53912)) 
\.ef 

eESTE (KOUT ©2059) CEAMOAC UI, VNC IDO VCS) DV ACSoLL) CFCS) EC II. IFC Y 
1), 5703) 0 vets VO) 

WRITE (KOUTS S20) (EB(1),588,58) 
WAITE (KOUTL3L0) (XC), $01, S8PC) 
WRITE (KOUT, 305) (18¢1),39%.98) 
FomMay (39125) 

FORMAT (8E12.4) 

CONTINUE 

1& (XC42) 320,360,320 

XUOX( LOCKE 

aexeaBS(K(3)) 

1© (aB8(x1)-.5) 330,330,325 
C4F ae, 5/46x 

XisCmFex(y) 

{fF (x2) 340,360,535 

Te TMAaX 

KisaMIng( ,2.K1) 

ce TO 345 

TMsTMIN 

M18aMAX10°0.2.K1) 
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000182 445 mgeraes 49 
000183 me 10¢2) CT} 
000184 420 «wT eWNC E9009 0011) a? 
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000196 425 «= VCD POALOSC VINCE)? rT 
000387 co 79 438 $e 
0002868 430 = VCS POVITDODI 93 
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000399 PNG (1K) CPNUB(K OVA 62 
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000201 60 70 499 64 
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000203 ry ee OST LABEL. 32 | 6 

000204 1 CYCU)) peat tre | 6? . 
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000206 46S «= 1F 0 KRCO)) 6994700470 ot 
0900207 470 1@ (TTP 196,008) 495,479,479 70 
000208 47g ¥e1900, 1 
000209 ECE L 9008 72 
000210 60 70 499 73 
000221 480) «VNC EOVNC E007! LA) 
000212 16 Cv¥MCED) 490,49°, 468 i] 
000215 405 «= WTLOWTLOUNC FD OWTEC 1) 7 
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000217 agg qeled 60 
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000239 00 S60 101,18 62 
000220 $00 SLAMC TOOL AMC 1 FFF 63 
000221 RETURN 64 
000222 i) e3- 


~286- 








AFWL-TR-69-114, Vol. II 


c. Flow Chart 
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26 TF CABSCCHFODYID-F> 275.27b.270 
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235 ORMAT (1X8 COXPHVNSXI (RHDY? XSHBCALETX1 HIFC IP2/C1XAN, SE10, 
18.19.12. 1X. 0 .SE10 3.13.12) 
300 a 
ITE (KOUT.295> CFRMORCI>.YNCJ>. YU, OYACILL>. CHFF CUD ECU), IFCCJ 
1), IPSd). J=3. NO? 
WRITE (KCYUT,$10> CEBCID, 191, 18 
WRITE (KQUT.310> (XCI), I=L. ISPQ> 
WRITE (KOUT.306> CIBCI>, 191,18) 
305 FORMAT ope? 
310 «= FORMAT (8E12.4> 
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25. SUBROUTINE INPUT - B243 
a. Punction 


Reads in basic elementai composition data and species property data, 
selects base species, and sets up etcichiometric coefficients for species forna- 
tion reactions. Called by REPCON. 
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b. Listing 


oceots C8244 8244 223 
gcosce S BAOLTINE [NPUT( PR) 
occcess INTEGER FamCa, FaeCB, CuaR, SL ann 
lets feroney | INTEGER 2”04,4408, A740, 478, A7C 8244 005 
09cos COMMON FA TCOM/KKR( 20), KEN, KOUP 
ocosse DIMENSION Cll¢ 74,42), 7R(9) 9245 CO6eNED 
oco0oc? DIMENSION U4(19,10) B24, 007 eNEY 
ooocces EQUIVALENCE( TUC 72), TRI, CVNULCTY) 0244 008eNEW 
900009 DIMENSION CC1G) KPC 2) MAC2), TCO) Sd CO), ALPT(6),7AU(10,107 B24a O990NED 
osooic OMMESSTON 16¢ 10),019¢20,86) 0244 O1L0eNED 
000611 CLMENSION FETC TL) NEL AC TLILNPSOC 21) B24a O11 ONEW 
000012 OIMENSION TFMETC 72),36MET( 72), 2168P3(2),SORCE( 8) 8244 C12eNEr 
0000s * CORMON /BLOCOM/FAMOR( 99), FAMOBC TLI2N sFRO 79,99) -W03) LEFCIOB24a | 1SONED 
co0o16 1, LEFS(10), FIEaSE,LEPw (10) 0244 L40NEW 
occas COON SEGPCOMs RAC F4,2)0RC( 7452) MDC 7222) REC 724,22 -RF( 7202),8024a I50NEW 
0c0018 1 TUC 72,2)0F EC TL MEAL FCO 79), APALL0) -ATBC LO) ATCLLO) WAT(30), B24a 169KEW 
o0co17 2 KATCLOD, [RAC1Os, 1S MREGO) LAME l %19.R, Te PKCLO, TO,YNE 74), 0244 L7enE> 
000014 3 VNUC 72,20), 1 TEE KMS, ACH NOV, Wm WTR 719,70 TLIOVMK 729,660 729 B24a 18 0NEW 
000019 @ ,TG(20. 7), EPOYRK, Sf 6ms, BaSMOy, 0244 19¢NEW 
0¢0920 COMMON /EQTCOM/SIP, HIP, EL ENL PLIGG, CPF, IRE, LER, MAL STS, INDIE IT, 8244 200NEW 
o90c21 1 MODE sHMELTs SMELT, TMAX, TMIN, MELT, SUMN, SUML WS, WSS,81,18P2,18PG, 624s 210NEd 
005c22 2 [SP.KKI, 8VA, SVB, SVC, SVD. SUTC FEF. COP EP, RY. LFCUC WPGC WIL. WC HG, S244 220NEW 
cooces 3 CPC TTMINs TTMAX L2eL3sTBCLi) ERC1C)  EBLE16).A(26.96) 8136), B26a 23enE. 
0o0d26 4 17 7h>.2bP 020), FNUCLO) GAMHC10), GAME( 10), SLAMC20),0¥( 72)-AV8, B24a 240NEY 

‘ 000625 5 CPL 7A9eHC 72),8B0 74IeTCO 722, VLE 719286 72), PNUS(I0). O24, 25eNE> 
oc0G26 @ BC(10)  BLNK( 20), 84010), 180120) -BECLOrJ5t 4) 6242 26°NEW 
0c0027 COMMON/KINCOM/MT ,FKF (20) -EAK( 10) EXK( 10) PMUCLO010),RMUC10020). B82en 270NEW 
OCcoc2s L OXPT(40),PKP(30) -PKR(S9) RAT(L0) MBIC( 10) MACSO) LLEL9),PMACS0), B24a 28eNEW 
GGG25 @ PRMULGS,10) -EESEL SS? €242 2eeney 
a000sc 301 «= FORMAT (13,F7.0,7F20,4) o~24 
ocoos4 302 FORMAT(6E9,6,2F6,0034) 

. 000032 3020 FORMAT(AX6E12,50F10 54.6 3164s S271 XOEI2, SFO. 40 F 11.452) 
000c353 3021 FORMAT(204,612,4,204,642.4,266,812,6,244, 832.4) B24a 029 
agnnse 3¢3 FAMMETOCN stu) 8244 030 
000035 304 FORMAT(I3,344,69,3. 788,35) 
000036 30S FORMAT(SMHORELATIVE ELEFENTAL COMPOBITIONS, ATOMIC WTS/UNTT MASS B244 032 
000037 1/6X6HAT NO, SXPHELEMENTQXOMATOMIC WTSXSMEDCE CAG4X2GKPYRO, CAB 15x 
000036 2 GHCHAR LSXIOHPYRO,GAS 2SXGHCHAR 25XLONPYRO.GAS ISXOMCHAR 3/ 
000039 3 (7¥13,3K344,F10,5- 7729079) 
000940 306 FORMAT(7(F3.0,23), A2,948) 
000041 Data CHAR, BLANK /4HCHE® , 4H / 
950042 PoPP 
0c0043 KRAUS) 02 
000044 KRAC 2) PRKR( 2) o4 
060045 TECKR(2),EQ.3,.0R,KR(2),60.8) KR(3)86 
900046 IF(KR(2),E0.7) GO TO 3784 
000047 3062 mT#0 
000048 FFa00, 489 
000049 FITMOLS26,7 
¢00059 FITGMW224,3 
0000S: GGA 8 0.484 
090052 BaSnhOLe32.0 
000053 S15Ma03, 467 
0000b4 EPOVRKaS06,7 
000055 NFF 80 O24a 042 
0c005é VINTsPed ,E-6 8244 043 
900057 YINTSALOG(VINT) B24a 044 
c000s8 RYMGmd, B24a 045 
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009059 1F (MRC2)) 334,334,321 244 046 
00006¢ 32a READC KIN, 304) 18, FF aR. 582,983 ,0784,0UB5.0U86.0U387,0U88 
goods: IF (0U82.67.0.) FITMO, efuUss 
000062 TF (0U83.CT7.0.) BASMOLsO0uBS 
000063 If (0U84.67.0.) S$1GMas0Ug4 
oo0006s¢ TE (DUBS.CT.0.) EPOVRxeOUBS 
000065 i® (0UB6.CT.0.) COA shuBe 
OGOr e 1F (O0UB7.G7.0.) FITGewetyS7 
oo00e7 16(FF AR) 3223,3212,3211 B24a 046 
090968 3213 FFROO, B24, 049 
000009 6O TO 3212 @2en 050 
000670 3211 FRASFFAR O24, 08% 
000071 3212 CONTINVE 824¢a 052 
oco07e2 JaTeays0 B24, 983 
000075 Tyas 8240 054 
090074 TF (1S-40) 321,322,399 0243 055 
000075 313 READCKIN. 304) CKATC Sd, APACS), ATRC UD, ANCES), WATCUD, CTMC UT), 
000076 1 $ei,73,J84,18) 
900077 00 327 %s4,7 
ocoo7s yas, B24, 059 
000079 0% 322 (91,18 8244 060 
00008s 1FCMAT(I7989) 3111,525,3008 O24, 063 
000sse, Saad LECIKC UK)? 324,322,328 O24 0462 
000082 324 VasVasTK( Wyk) O24a 063 
oocoss THC Dp KI MOTK( J MI/WATOU) O24a 066 
000084 62 70 322 B24a 065 
3cooes 325 vaevactK( ye Kyowat(s) w24a 066 
0co0o8s 322 CONTINUE G24, 6467 
000087 160VA) 326,327,326 
ocoose 326 06 325 Jsirt8 
CoCos? 323 Yel ye KETKY KI/Va 8244 069 
000090 327 CONTINUE : 
oocoss WRITECKOUT+3OS) CKATC IDs ATAC II, ATBC IDs ATCC I2> Wahldd, CMC UOED, 
000092 2 18367), 084,38) 
00c0s3 MRITE (KOUT, 308) 
ongnoa SOR FORMAT(//3X64HTMERMODYNANIC PROPERTY CURVE-PFIT Dava (SEE MANUAL FO 
000095 ae FORMAT) //} 
0000%%6 TSPa{See 8244 072 
000097 TECKRID)) 399,399,334 0244 075 
000098 334 TeMAKeO, B24a 074 
OCO09¢S aaasd, 8244 075 
000100 Ns0 $244 076 
000201 Yretse O24a 077 
000102 Jet O24a 678 
900105 342 READLKIN, 306) CALPT('.)  yaT6K)  KOL,7) SORCE. AMOA, AMOB 
000104 TECALPTC4)) 3421,5308,3420 
gocy103 3420 TFC JATCL)) 344634295546 
006106 3421 WEF OABS( ALPT(2)) 
000107 READCKIN  SOZLICHEL ACT. NPIOC ID PFINGS 20d, NFP) B24, 082 
000108 GO TO 342 B24a 083 
000409 344 00 345 Ke1,I$ 
009319 345 C(Kd20. 
ocoiis DO 349 Lear? 
000412 SEC SATCI)) 346,349,346 
0073313 346 00 347 Keil3 
090114 IFC UATCL KAT’ X)) 347,396,347 
090115 347 CONTINUE 
OC01146 READ( KIN, 303) 
000417 GO TO 342 
000116 346 CCK) SALPTCN) 
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000319 
000120 
0c0121 
000122 
000123 
0v0126 
0¢0125 
000126 
906127 
OC012s 
oco129 
000135¢ 
090131 
0v0132 
(00133 
900134 
000135 
006136 
000137 
000136 
960139 
000140 
000141 
000142 
000143 
000144 
060145 
000146 
960147 
000148 
050149 
060150 
0001s: 
006152 
000153 
0c0154 
050158 
000156 
0u01>7 
060158 
000159 
Cc0160 
000161 
000162 
000163 
900154 
000165 
000146 
000187 
800148 
000169 
000376 
000371 
000172 
000373 
000174 
000475 
000176 
000177 
occi7s 


349 


3a? 
388 
360 
3692 


315 


353 
393 


394 
314 
320 
316 
396 


397 


317 


398 
328 


329 


330 
337 
336 


338 


CONTINUE 

w7s0, 

Lai 

LAMKK sO 

OO 368 193,18 
SECCCI1)) 387,368,367 
LAMA se AMKKOL 
wrewTec( lr, © waT(]) 
Leber 

IECJ°IS) 360,366,369 
JMB Jol 

O05 3601 LeietS 

Crs deck) 
Lan{(y)} # LaeKK 

IF (2%) 320.320.3123 
00 314 La1,uM 
IMLata(L) 

UGHSC( IML) 
UM(LJ86, 

IFCUGH) 383,314,353 
00 393 Ie, 

UMC TJ) SUMC TS JUNC EL SouGH 
00 394 JeIML, 18 

CCL ISCC I) -TAUC?.L euGH 
UM(C,L)80, 

00 326 181,18 

IFCABS (€(3))-,001)326,336,397 
TAUCT,Jd)80, 

D0 396 Tes,uM 
VIUCETS ST) @eUM( Toy) 
00 397 JeUrt8 
VNUCTE, 1200, 
LAMT CTT sLaMkn 

GO T0 370 

IM(J)s] 

UMC J, J) 8%, 

00 398 Leted 

UMC Ls J BUM(L UICC TE) 
0O 328 Lol.ts 
TAUCLsVIAC(LI/ECT) 
YCsSYINT 

KKeJ 

JsJei 

IFC Jet8) 372,372,329 
OO 330 122.18 

Je TSP. 

IMUeIM( JMed) 

00 330 KeyeyM 
UGHBTAUC IMI) K) 

09 330 f$e4,36 

USC Ts K28UMC TK) @UGHOUM( 1, UMeL) 
00 333 321,18 

IMy ate) 

LFCIMIo1) 336,333,336 
Of 338 Kai,I§ 
VaUM(K, IME} 
UM(K, IME) sUMCK. 1) 
UM(K, T)sv 

IMC TEIMC TAY) 

IMCEMT ot] 
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099 
100 
103 


104 
105 
106 
107 
106 
199 
116 
134 
122 
143 
114 
115 
116 
147 
116 
120 
121 
123 


124 
125 
126 
427 
128 
129 
436 
134 
132 
133 
136 
135 
136 
137 
ide 
139 
140 
144 
142 
143 
144 
145 
146 
147 
14a 
149 
150 





000179 69 TO 337 6243 15% 
0¢0180 333 coni PNUE 8244 182 
000281 Gooe-ELEMENT -= BASE GAS CORRESPONDENCE B24a 153 
b001k2 c INITIALIZE ROW AND COLUMN SUMS B24, 154 
060143 1691S 6244 155 
Oc0164 00 464 $21.18 B24a 156 
oco1ss TACT end B2aa 187 
000186 401 1CCE)e-2 8240 156 
0c01467 c EVALUATE INITIAL SUMS 8244 159 
OCOLBA LaMOad 

000139 on 402 t21,18 

000190 00 403 Jei,S8 

000291 LIME Le JIeMOOCLAME(J)/LAMOL2) 

000192 tc( J) ® ICCI) © LIM ed? 

000193 403 pacrye IRCL) © LEM(T.J) 

000194 402 LaMOsLaMOoL AMD 

000195 C CWECK FOR ZEROS B26a 167 
000196 426 $780 O24a 168 
000497 404 09 412 121.58 O24a 169 
000198 JECHCCT $12) 466,405,408 B24a 170 
0¢0199 405 09 406 Jei,IS O24a 171 
0¢0200 TECLIM( ULI) 407,406,407 B24a 172 
000201 406 CONTINUE 0244 195 
0co202 407 1CfL)sed O24a 374 
000203 TAUyans 0244 175 
000204 00 426 K23,%8 B26a 176 
0c0205 LIME de” 80 O24a 177 
oco2ce TECLIMC UK)? 425,427,425 O24a 178 
900207 428 ICCC )OLCC Kod O2ea 179 
000208 LIM(ueK 90 e244 788 
oco20e9 427 LECLIMOK, TD) 422,428,422 B24a 164 
000210 422 LIM(K, 1980 B24a 182 
000211 TRICK) BERCKI WL B24a 183 
000212 428 CONTINUE B24a 184 
000213 GO TO 4135 O24, 165 
000214 408 JFCIRCT3-$2) 412,400,442 B24a 186 
000215 409 pd 410 JairtS B24a 187 
000216 TECLIMSG,J7) 442,416,689 6244 168 
000217 411 100080! 0244 189 
go002i8 TROP) 8d B24a 190 
000219 LIMC Le sied ” B24a 194 
000220 GO TO 4103 B24a 192 
000221 410 CONTINUE 824a 153 
000222 4103 00 430 Kai, 18 BQ4a 194 
000223 LECLIMCK, J) 1424,429 5426 B26a 195 
060224 424 fACKIOIRCK) <3 B24 176 
000225 LIM(K, 3990 824a 197 
000226 429 JECRIMC IK)? 423,430,425 O24a 198 
000227 423 LIMCL, R20 26a 19¢ 
000228 TCC K)eIC(Ky 1 vaca 200 
ooce293 430 CONTINUE B24a 201 
009250 Go TO 413 8244 202 
000231 412 CONTINUE B24a 203 
000252 179t2o4 B44 204 
6002353 Go TO 4n4 G242 205 
oed2se 413 [G21Ges B24 206 
000255 JatSet 824a 207 
000256 PECIG) 414,444,426 6244 208 
000237 414 JRCKRODAN) 37203722 45% B24, 209 
000238 415 FAMOat TS) ea%0a B24a 210 
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009239 
0c0240 
900241 
000242 
000243 
000244 
000245 
000246 
000247 
690248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
060259 
000260 
000264 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
00026¢ 
000270 
000271 
000272 
000273 
000274 
0002738 
00027u 
000277 
000278 
000279 
000280 
000281 
000262 
000283 
000284 
0002835 
000286 
000287 
ord288 
600289 
000290 
000291 
000292 
006295 
000294 
000295 
000296 
000297 
0002%8 


FaMOB( 1S) sAMOP 
09 446 f91,'S 
Ke-{R(T) 
ICC YT) SFAMOACK) 
416 [MCT )eFAMOBCK) 
447 FORMAT(///SXOHELEMENT 1.1844) 
416 FORMAT( SxOWMBASE SP 6(4X244)) 
GO TO 372 
36% 00 Sct Lor, t8 
VNUCT Ib) 20. 
00 364 194,18 
JOL VNUCIT LI OVNUCT I LCOS VOUMCL, 3) 
PAMICT I) SLAMKK 
370 KKsf! 
tistlos 
yes 0, 
S72 READCKIN, 30Z) CRACK) MBCKKK), ROCKK KD > ROCKK,K), RECKK,K), 
LRECKK,K). ZIGEPEIK). TUCK KR) RPHACK),KOd,2? 
LEC KPHACL OKPMA(2)) 3733,3736,3734 
S733 JECKPMACL)OKPHA( 22S) 3734,3737,3734 
3734 WAETECKOUT, 3735S) AMOA, AMOB 
3738 FORMAT(////2SH BAC PHASE NUMBERING POR 244) 
stor 
S73G LECKPHAC4) 94) 3734,3727,3788 
3737 TUCKK ed) ee TUCKK ed? 
3728 FECKK) © 1,€640 
GOCKK) © 1,6630 
GO 70 3729 
3727 FECKK)SCWT/FLTMGL) @oFFA 
TEMETIKK 02 
GOCKK) © ef, 
3729 JE(NFF) 3726,3449,3730 
3739 00 3723 Jed .NFF 
JECNELACT 2 ©AMOA) 3723,3724,3785 
3724 JFCNHEIOCT)-ANOB) 3723,3726,3793 
3720 TECRRING 199900.) 3789375409753 
3725 If CFFINGT)) 34860,3480,340% 
3680 GOCKK) & eFFINGS) 
GMET( KK) ot 
GO TO 3723 
3481 FRCKK) & FFINGT) 
JEMET( KK) ad 
GO TO 3925 
3731 TECKKIORPEING I) 
3723 CONTINUE 
TF (GG(KK)) 3449,3460,3458 
3449 JF (ZIGEPS(1)9300,) 3493,3499,34%2 
3453 [2 (ZIGEPGCL)) 3492, 3452,3405 
344d [Ff (ZIGEPS(R)) 3452,3452, 3643 
3443 GOCKK) © PIGEPE(L)/SIGMA © (UIGEPS(2)/EPCVRK)00,3998 6 
1 (WT/BASMOL)0e,29 
IGMET(KK 03 
GO TO 3458 
3452 1h (KPHACS194)5456,3457,3456 
3456 GOCKK) © 1,830 
GO TO 3455 
3437 GOCKK) 3 I WT/ELTGMW)0eGCA 
IGMET( XK) 92 
3455 CONTINUE 
3726 LECKROS)-6) 3722,3724,3722 
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0242 
8244 
O24a 
O24, 
0244 


B24A 
S244 
O24a 
8244 
024A 
O24, 


B24a 


R244 
O24a 


0244 
6264 


6244 


234 
212 
243 
214 
225 
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223 
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224 
225 
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000295 3721 ARITECKU'T, SOBDCALPTCK)  GATOK), Keds¥), SORCE,AMOA, AMOB 

000300 WRITECKOUT, SOZ0)( RACK)» RBCKK KS, ROCK OK)s ROCK KD, RECKKOK): 

006301 ARECKK KY, ZIGEPS(K), TUCKK, MK)  KOMACK), K9d,2) 

Cy0302 3722 FAMOA( KK) SAMOA B24a 247 

ocozu3 - 4"0B( KK) @AMOB 8244 248 

0003u4 whh(KK adt B24a 284 

000305 RACKK, 248 RBCKK,L) © Rad) 

009306 AACKK, Zi a RBCKK,2Z) © RA(2) 

0003C7 NaNeoL B24k 234 

oro3Us TRC KPHACL 3-4 937394,362, 364 

900309 364 LECEKK) By B24a 267 

000320 VNCKK 80, 6244 268 

000331 YOKK) eYC B26s 269 

000312 IECTECKK)©TEMAX) 342,342,374 824a 270 

009333 374 TEMAXOTE( KK) B24a 2712 

000314 GO YO 342 B2Z4a 272 

oco3s%$ 362 JFCCKK) AO 8244 273 

OGO316 VNC KK OV INT B24s Ere 

000317 YOKKISYINT 8244 275 

Ooc3sa GO TO 342 B24 276 

000319 399 wRITE (KOUT, 447) CATACED  ATOC LT) ATCCL), Lede 18) 

001320 WRUTE CKOUTL 420) CICCT IMCL), 3ed, 18) 

000321 500% WRITECKOUT.210) SIGMA, EPOVAK, BASMOL 

00032? : 140 FORMAT(///3X3OHMOLECULAR TRANSPORT PROPERTIRG/SXISHVISCOSITY ...,. 

o00323 4 BUODENBERG - WILKE MIXTURE FORMULA WITM MUCE) CALCULATRO ON/21X36 

ONO324 ZHYME BASIS OF OCI,1) @ OBAR/G( 3 pee2s/SXSOMTHERMAL CONDUCTIVITY .,, 

030325 3,, MASON » SAXENA MIXTURE FORMULA ST) CUCKEN CORRECTION/ /SK7SHOSE 

000326 4FUSION COEFFICIENTS ,000+ OC fad) © CRAR/CACLIGRC YD) WITH O8AR Base 

000327 50 ON/22X8HBIGMA &@ »P3,4253M, EPOVRK © FR, 4023H» AND MREF © 79,4) 

coos2ea WRITE (KOUTLI41) PIPMGL EMA, FLT OMW, 66a 

COS32¢ tat Aer ng arn eer EMPLOYED//ENG3MO CONGRNSEO poeeee VaLuss FOR 

(196330 1 FCT) AND GCS) SET BQUAL TO 4,8el0/sOmddni VALUES FOR 7655 56M BE! 

(00354 3 ) INPUT DIRECTLY//6X74M2 VALUB@ FOR RK) COR 6CT)) CALCULATED gv 

(100332 3 ECL) SCMCTI/ELTMOL I OORRPA ANDSSONASNGCE) o CMCLI/PIO MW eebea WHEF 

100333 4— Mc) 15 SPECIES MOLECULAR WELGNT /40K>9MPLTHOL a ,78,4,230, aNO 

ogo3se SFrA @ sF6,4e24n, FITOMW © FB,4,48M. ANG COA @ 1FO,4) 

000335 “Q17E (KOUT, 112) 

000336 112 FORMAT(/OX79HS VALUES FOR Git) CALCULATES GY 6(4) & SERT(O84R/0(), 

000337 119) © (SIGMACT2/B26Ma) ALONISHS (EPEC T)/EPOVAK) 900,0795 © (MC! 

100338 2)/SREF) 600.23 WHERE SISMACT) AND QPBCL/LORSSHARE GIVEN WITH THR 

000339 SMODYNAMEC DATA//7XPSHSPECIES (1) METHOD OC) METHOD SPEC! 

000340 4€S FCY) METHOD GCE) METHOD) 

0cod44 WRITE CKQUT/ ALS “CRAMOACKK) sPAMOBCKK) PFC), [EMETC KK), SCC KK), LQME 

000342 LTCKKS S)KKageN) 

000343 143 r. QMHATOIKs ZAG AX PSS SMe LL oS ePD.S Bo LL eLOM. 2A eK Se SSM SLO SK 

000344 1,°5,3,3%,14) 

050345 WRITE (KOUT, $49) 

000346 442 FORMAT (//3%64M6&.QNATION SOLUTION POLLGWED BY BOUNDARYeL AYER ENCE 

00034? 1 EXPaNSIONs) 

000348 CO 375 Lair? 

noo349 OO 376 {84.18 B24a 278 

LAO35SC TH(T,L380, B24a 279 

OCO3>1 DO 375 Kai,1S B24, 260 

009352 SIS TACT LIETACL LPOUMCL KM )OTKIKIL) B2sa 264 

690353 [FCKRCQ2)93) $732, 3792, 3991 

000354 3754 CONTINVE 

000355 240 FIRMAT(8F10,6) TMERS 330 

000356 248 FORMAT (213) YHERL340 

O003>7 250 FORMAT(3E10.4) THERI350 

00036 255 READ(KIN, 245)47 THERL370 
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C00359 
000360 
000361 
000362 
000363 
000564 
000368 
000366 
000367 
900368 
OCH389 
006370 
000371 
000372 
000373 
00374 
0c0375 
006376 
000377 
6.00374 
000379 
000380 
000341 
OU 382 
000353 
000384 
000385 
000386 
000387 
000388 
900389 
000396 
000391 
6003552 
000393 
000394 
000395 
000396 
CoSSF7 
000398 
000399 
000400 


256 


260 
265 
270 
275 
280 
28s 
290 
205 
200 
205 
210 
ais 
220 


223 


230 


IFCMT) 3792,3792,256 

50 260 MagsMY 
READCKIN, 230) FKE(M) ERK OM) EXK(M) 
READ(KIN, 240) (RMU(T 24), 192.18) 
READ KIN, 240) (PHU0 2M), 384,18) 
FORMAT (//3K, 7HKINETIC) 

FYRMAT (3X LEMREACTION“9-.17,0110) 
SORMAT (/3X,BHREACTANT) 

FORMAT (SX, S2HCOBFFICIENTS/) 
FORMAT (OX, 204,76, 2,9F10.2) 
FORMAT (/3X,7HPROOUCT) 

FORMAT (73%, 1 2HPRE EXPONENT) 
FORMAT (5X, 6HPACTOR, 4X, 10824,3) 
FORMAT (/3X+LOKACTIVATION) 
FORMAT (3x, OMENMRGY, 4x, 10816, 2) 
FORMAT (/3X,8HREACTION) 

FORMAT (Sx, SHORDEN, SX, 10820 .3; 
WRIVTECKOUT, 265) 
WRITECWOUT/ 270) (MN, Mad MT) 
WRITECKOUT, 275) 

wR! PECKOUT, 260) 

Ov 225 301538 

WRIPECKOUT, 239 )FAMOA(T) »FAMOBC ST), CRMUCT SM), Mai, MT) 
WRITECKOUT, 200) 

WRITECKOUT, 280) 

00 230 121.38 

WITPECKOUT, BOS )FAMGACT) PAMOBCT),(CPMUCT»M), Mod, MT) 
VRITECKOUT, 295) 
WRUTECKOUT, 200) (FXF(M) Med MT} 
WRI TECKOUT, 205) 

WAITE(KOUT, 246)CEAKEM) Mad MT) 
WRITE CKOUT. 245) 
WATPTECKOUT, 220 (EKKIM), Mel 47) 
yu (Nei dag, 

TFC(NO@Y ea} 

WIM(NOS ond, 

FAMOA( NOL }OCHAR 
FaMOB(NO1 ) CBLANK 

THINGS IESSOSS, 

TF(OUBG.GT.0,) TFC NOL) © MIM 
RETURN 

END 


-307- 


THERL 30 
THERLS96 
TKERL 400 
YHER14L0 


remit 40 


TMERE 


8245 263 





— ED 






- 1068- 


-RRCL > EO.8> KALE mS 


Il 






~ 
et 
is ~ 
oN ee N ey 
(s) W 
. z 
er u < 8 
a 2 
jos 
Hy ot ry 
oO iy 
wo 
4 
iq ° 
t. 12) 
8 


oe mene 


hak cme mambo bbe 


APWL-TR-69-114, Vol. If 


BULL TECHS.) 329.322.328 





325 VARVAETKCS KO OHAT CUD 


322 CO 


> 326.327.3286 





323 TKK. KOSTKC. K>/ YR 





== | 


— ne ee reed 


tek TE Rae se a nea oF nA 





AFWL-TR-69-114, Vol. II 


> 
1), Jai. J8) 
(RGUT. 308) 
cee Se eee are PROPERTY CURVE-FIT ORTA <SEE MANUAL 








FCRRC3>? $99. 389. 834 












| IFCGATCID? 34S. 269.286 


ee aa? Ge 


PIS AYCiss S651.595. 9980 
eeeuaie >) 960, 8681,80 “ 
Wei i oe 
KIN, S02 L> CHF IACI). NFIBCI), FRINCID. 191, NFFD 
“Ct 
$4 908 Kei. 











AFWL-TR-69-114, Vol. II 






K>> 397.368. 847 


REROCKIN. 383) 





350 JiMeu~1 


OO 3601 L=1.15 


8601 Ch SoeCeLy 









[en ee ne ne END | 





a 


“fo 998 fi. JK 


-312- 


AWFL-TR-69-114, Vol. II 








APWL-TR--69-124, Vol. II 


Umite FALIC IM. KD 













AFWL-TR-69-114, Vol. II 


allen, 


(ri 
UMCK. TNE EUNCK. 1) 


-314- $08 : 










AFWL-TR-69-114, Vol. II 


+ anee 





LIn MODCLANI <J>/LAND. 
Teed” : ICcd> + LEKI. J? 








IFCICCID-1Z) 408.963.4908 
ae 





80? IC¢Ci>=-J 
IRCJe-1 


| ae ns 


~315- 


Re tare Ne LE ee a me La EN AERA SRNR thee 








APWL-TR-69-114, Vol. II 


K.2d) 422.628.9 


== 


| 


tT 
i = : WM 
e131 BO 43d Kei. | | | 


-316- 








th roe ome ed itt 


cowry 








AFWL-TR-69-114, Vol. IT | 


TFCLIM(K. 335026. 929. 429 { 
480 IRcKoIRCK)—1 eee ee | 
LIMCK. J m0 








| > 918.016, 626 


<32-3) a72.372.¢1 


i 
413 Ieej6-1 
Jat ] 





Ke-IRCID 





: 
| 
: 
| 
| 
i 
| 
| 
| 
| 
| 










AFWL-TR-69~-114, Vol. II 











(77/8 - 18%> 
¢ sense oe CCOREMA)) 


17. FORMAT 
418 FORMAT 








1 
Pe if 


oe 


ROCKK.K). 
-23 





j 302 >. RRCKK.KD. ROCKK. KD, 
UNF C.D. ZIGEPBCKD. TUCKK. KD. KPHACKD. Ket 















1)- . ’ 


8 
138 IFC wv oe a LF | ! 
T3¢ WAITESKOUT. 3786) AMON. AG oy 
186 FORMAT(////25H BAD PHAGE HUMBERING FOR 2f4> 





aes ae = aan | 


~318- 


} 


bien. ee ee a ee Se ee es 


BG $61 (=i. 1s 

WAKTI.L0. 
| 
} 












AFWL-TR-69-114, Vol. II 


3726 IFCKPHACID-1> 3730. 3727. 3788 AT] 
om 
ccrecn euantninee trea ingeg 
3737 TUCKK. 1>8-TUCKK. 1> ik 
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26. SUBKOUTINE PROPS - B2SA 


a. Function 


Computes all properties and property derivatives required by boundary 2 
layer calculations. Called by EQUIL. 
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27. SUBROUTINE TAYLOR (D,FM,F,P) - B26A 


a. Function 


Calculates coefficients in Taylor series expansions of integrals which 
appear in the integrel form of the boundary layer equations. Called by HISTXI, 


IMONE. 
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Oo 
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FM = Value of function and its derivatives at I-l 
F = Value of function and its derivatives at I 


P = Terms in Taylor series expansions 
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ce. Flow Chart 
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28. SUBROCTINE LINMAT 


a. Punccion 


Sets up matrices for Taylor series expansions and iinear boundary co-- 
ditions from eta spacing, and solves to express linear corrections in terss of 
nonlinear corrections. Called by SETUP. Calls MATS1, MATS2. 
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c. Flow Chart 
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29. SUBROUTINE KINET - B28A 
a. Function 


Determines rates for kinetically-controlled reactions, ascertains the 
controlling reactions on the basis of which ic forms transformation matrix, pre- 
pares the reduced correction coefficients for the kinetic terms, and combines 
them with the previously determined coefficients. Called by MATER. 
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b. Listing 
000001 C8264 
000002 SIIBROUT I VEK INET KINEQOL0 
000003 COMMON /™1SCOM/ C1-062,C3 
0g0004 COMMON /BUMCUOM/ BUMP, CORMA, EASE 
000005 COMMONS ENTCOM/KKR( 20) KIN KOUT 
c10006 =, OIMENSTON ELKM(10),DELK{10) 626s OO4eNEW 
\goo0o07 ' COMMON /EQPCOM/ RBC 71.2).RC0 7252) eMDC 7h52) REC 74,29 RFC 7952),8288 SoNEW 
ated 4 2 TUC PLs2reFEL 72) FR a, TECl 74) AT AC10)  ATOCLO)cATCCLO) WAT(S0), 8284 6eNEW 
0oodue 2 KAT(10),1R010),18,KRC10) LAMEd 72),P, Te TK(L0, 79,VNC 7h), 8284 TeNEW 
006010 3 VNUC 74,10), 1 TEE KR, HCH NCV WM WTM( 71)0¥C 7LI,YWE 722,660 72) B284 BeNEW 
000042 4 ,TQ(10. 7), EPOVRK, SIGMA, BASMOL 0264 OeNEW 
oocai12 COMMON /EQTCOM/SIP HIP, EL, ENL,PLIG, CPF, IRE IER, Qa, STS,IN,ILAIT, 8280 100NEW 
000013 1 MODE, HMELT SMELT», TMAX, TMIN, MELT, SUMN, SUML ,WS,WSS,81,18P2,18P0, O20a i11¢NEb 
900016 2 18P,KKJ,SVA,SVB,8VC,SVD, UMC, FFF, CHE, GP RV IFCUC WIG WPL JC ,HG, B28 120NEr 
090018 3 CPG, TTMING TYMAX L20L3. 18649) E8110) -EBL( 20), A016,16),8616), 0204 iJeNEW 
000026 4 SPC 72), ALP010),FNUC10),CAMH{(10),GAME(10)¢SLAM(40),0¥( 72),RVS, O204 140NEW 
990017 3 CPC 72),HC 74),SAC 71)6TCE TEP-VLENKC 722080 72),PNUBC10), B20A i15°NEW 
000018 & BCC10).BLNK(10),8V040). 186610) .BE( LOU 4) 8264 i16¢NEW 
0c0019 COMMON/K INCOM/4T ,FKF (10), EAX( 109 .EXK (102 /PMUS10,10),RMUCI0020). 8264 i7¢eNEW 
000020 1 OKPT(16),PKP( 10) FKR(20) -RATCACY AS16010) .MAC10),LL (10). PMRC10), B284 LBeNEW 
000021 2 PRMULI0,10) EESE(10) 8284 i 19EeNEW 
000022 S FORMAT( A313) KINEQS200-26 
000023 10 RAT #9 1.9660 © 7 KINEOS3SO 
000026 00 40 Mey,M? KINZOS40 
noooes smo « 0, KINEOSSO 
000026 Sime @ 0, KINEO360 
000027 SUMR @ 0, KINEOS70 
ooco2s StimP 8 0, KINEOS80 
co0029 00 45 194,18 KINEOS9O 
900030 PRMUCT»M) © PMUCE,M) © RMUCE,M) KINEO400 
000034 SUNK © SUMK + PRMUCT,M) © VLNK(T) KINEQ410 
090032 SUMR # SUMR @ RMUCT SM) © CE) KINEO420 
000033 SUMP & SUMP o PMUCT SM) © YC4) KINEO430 
000034 45 SsumO #8 SUMO + PPMU(T,M) © MCT) KINEO440 
000035 C EOCVILJBRIUM CONSTANTS FOR KINETIC REACTIONS JN TERMS OF BASE SPECI KINED4SO 
0000356 c LOG KP-g KINEO460 
900037 G DERIVATIVES OF LOGS Of ABOVE KPeS WITH RESPECT TO Loc Tf KINEO4860 
000038 OKPT(M) « SUMD / RT KINEO490 
00005¢ ¢ RIGHT HAND SIDE (OR REVERSE PART) OF ORIVING POTENTIAL KINEOSOO 
000040 1FCITS ) 19,124,346 
000041 14 DELK(M)s0, 
000042 16 JECDELKCM)) 37,29,48 
000043 17 SUMPOSUMP-DELK(M) 
000044 GO TO 39 
000048 46 SUMMOSUMRODELK(M) 
000046 19 ELKM(M) @SUMPCSUMK eSUMR 
000047 PKP(M) a EXP(SUMP © SUMK) KINEOS10 
090048 ¢ LEFT HaNo SIOE (OR FORWARD PART) OF ORIVING POTENTI aL KiNEOS20 
000049 PYR\M) = EXP(SUMR) KINEQS3O 
000050 VK @ PKR(M) © PRKP(M) KINEOS40 
000051 IF (VKL) 25,20,25 KINEOSSO 
000052 20 VK1 & 4cE © 9 © PKR(M) KINE0S60 
000053 25 CONTINUE 
000054 VK2 9 AA o PKECM, © (aBS(VKE)) @ © CEXK(M) © 1,) © BXPC © EAK(M) /KINEOSB0 
000058 4 8TyaCC3> 
oco0ss VKS ® VK2 KINEO600 
000057 TE CEXK(M) © 2,) 35,530,350 KINEQ610 
000058 30 vVK3 @ VK2 © EXK(M) KINEQ620 
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000089 c PY TIMES FORWARG RATE OF REACTION , (PMBAA) KINEC639 
000060 35 PYR(M) & VK2 @ VKE KiNEO640 
000061 PRKP(M} s PKP(M) «© VK3 KINE06S0 
000062 PKR(M) & PKR(M) & VK3 KINE0660 
000063 RATIMISAMAXL( ABS(PMP(M)), ABS(PKA(N))) 
000064 RSIG(M)@RATIM) 
0C0068 TECKRO7)=94) 46240, 36 
000066 SO TF(MoL) 37,437,390 
000067 37 wRITE(KOUT, 38) 
000068 38 FORMAT  2XLHM7XSKLKPOXAHOLKP/OL TOX4HPMRREX4HPMRPOXSHPMROXSWRAT) 
000069 39 wWRETECKOUT, 41) ™,SUMK,OKET(M), MKRIM),PKPCM)»PMRI(M) MATCH) 
000070 1 ,ELKICM), DELK(M) 
Ov0071 40 CONTINUE 
006072 41 FORMAT(13,2xX8632,5) 
000073 45 FORMATCIX26WACT 00) 2801).18158, 001.8 IN) KINEC690 
090074 $0 FORMAT(4x12810,3) KINEO700 
oco075 55 FORMATCAX27HACT oJ) 080500184928, 081,8 OUT) KINEO710 
090076 IF (KR(7) © 1) 89,80.65 KINEQ730 
0c0077 65 CONTINUE 
000078 wQTTECKOUT, SO )PRMU KINEO@10 
000079 w2LVECKOUT, 245) KINEO820 
000080 WRITECKOUTSSO(EB( I), 122,18) KINEOB30 
00008. WRITECKOUTSODCECE) » fade18) 
000082 7O wRITECKOUT. 45) KINED846 
000083 00 75 $64, 18P2 KINEOASO 
C00084 YS WAITECKOUT SOC ACL» J). 382. 18P0),B(1) 
009085 80 CONTINVE KINEOATO 
000086 1FCITS) 108,85,105 
000087 CeeseeORDER REACTIONS KINEOS6O 
000088 35 DO 86 Mei, MT 
0000489 66 MACM) aM 
000090 TEC MTL) 105,108,90 
000091 90 « 6 0 KINEO900 
000092 09 100 Ms2.M7 KINE0910 
000093 TECRSIG(M)@REIG(MeL)) 100,100,958 
000094 95 K 8 MA(M) KINEO930 
000095 Mat(M) 8 MACH © 4) KIiNEO940 
000096 MaA(M e 4) & K KINEO9350 
000097 DUMLeREIG(M) 
000098 RSIG(M)SRSIG(Me1) 
ocone? RSIG(Me<) sOUML 
000100 100 CONTINUE KINEO90C 
000101 IF CK) 109,105.85 KINELO90 
000102 CeeeseSTART SECOND MAJOR LOOP ON REACTIONS KINE1010 
000103 105 00 200 MMai,MT 
0001u4 RSIG(MM)80, 
000108 Ms MA(MM) KINELO3O 
000106 Coweeess IT A CONTROLLING REACTION KINGEI040 
000107 ft@(1TS) 106,108,106 
000108 £06 LeLL( MM) 
000109 TF(L) 126,126,107 
oco110 107 O1mMedABS(PRMUCL »M)eRAT(M)) 
ooorlL Gr TO 130 
000112 106 LLC MM) 80 
000113 "09 125 L0i.38 KINEIN6O 
000116 TF CPRMUCLIM)) 230,125,910 KINELO7C 
000115 110 00 115 Kei,MM KINE1080 
000116 TE *L = LLCK)) 2£45-6225,415 KINELOCO 
0004117 415 CONTINUE KINES100 
000118 D'iMa aR BC PRMUCL  MNyeRAT(M)) 
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aoe 600119 TEC ABS(PRMUIL 9) 90,0527 129,125,320 
on) 000129 Co eo © VES,IT 1S FOR “ASS Bapasce 4 MINSULES 
rare 000121 a20 veiw) Ok arneri3e 
, 006122 60TO 13¢ K1SE11 46 
000123 129 CONTINUE KINEGI96 
000326 Coo ONO, [fT IS NOT, AST INTO ack "ASB Saranc€S eixtiiet 
000128 126 T1018 
4 000126 12.0 18 KINELIOC 
ihe 060127 GoTo 170 Kin€ii9e 
cone. oces28 CoeeeeREARRANGE ACCORDING 17 CONTROLL IG REACTION vIs€1290 
ocor2¢ 430 ASTGCMMCOUMSEB(L 05.1 
090139 OUMS SPRAUCL 
000153 PaMUCLs Md © 0, K1%E2220 
000132 DO 448 f21.'8 KINEL23C 
000135 IF (PMMUCT © Md) 135,265.335 RINEL24€ 
000334 435 DUM2 @ PReULT 8) 7 Sok Kin€seSc 
900135 pecgyes 
000136 “Do MM oe 1 KINEL2S4 
000437 Je CMT » MP) 995.140.1640 #INESZIO 
000133 140 DO 180 Keer, “7 £7 %€22600 
000139 My] @ MACK: KT NEL290 
000140 PAMUCE MY) @ PRAUCL ME} © OUMZ © ORBLE AMY) KITMERSOS 
000241 tt CABSCPRMLCT MED) © 639%) 145,199,259 KInE2345 
0600142 445 PAMUCIMT) 8 SO. RINELSZ2 
000143 450 CONTINUE KINELSIC 
000144 195 09 466 Ke1,1899 KINESS4S 
000145 160 afl * Zen) © ACT © 2K) © DUNE © aly % 2,0) KINEL3$SC 
000146 BCL oz) 8 BCE © 2) - OuM2 © BLL + 2) KInEr 36S ° 
6c0147 EC LsE($ @DUM20E CL) 
§G0548 Ou™%2 @ s88(0UM2) KINELS FO 
JOTL 89 EQ($) © AMAXACEBITD ,OL"2 © EA(L)? KINES SEC 
096130 463 CONTINUE KINELS9S 
9001454 PREUCL OM) @ GUMS KINER 490 
000152 CeeseeasD CONTROLLING REACTION INTO 19S MaSS BaLancé a1Me2E39 
600155 mek KINELOZO i 
300154 296 wiysgaye 
. 000155 EOL OE LL OPMR Hp ORPRMLL LM) 
1 000156 1ECITS) 1762230-370 
hee 000157 2350 DERK( M3062. EASES OEL KC MIOAMING( 2,  SBS(EOL/ER(L:)) 
Ja 0064153 ELEM(M) SELKMC MD @DELM() 
d 900159 JECRMRCM)oPHKPCM)) 246,370,233 
ons 000160 238 PKPC MH) PRP CM) OEXP( SCELKEM) ) 
o. 206364 69 *0 243 
cd 005162 240 PKALMS BERR) EXP (DENK (MD) 
nik 000463 243 PYR(6)OPKR(M > A PKP(M) 
7 oocit4 176 99 476 Jea.IS 
000165 TRCTPCC SDD LPL LIL L7S 
oo 000386 172 SUMO @ RML(U,M) © PXACM) © PMLCU,%7 © PROC R) KINES S84 
aeaen 000467 po 178 teli.t2 MINES 240 
‘ 000168 s78 ACS * 205 * 27 & A(T © 2c # 2) © BUMD © PRMULT LM) KING L470 
0001869 176 CONTINUE 
000170 SUMD 2 «= PXP(M) @ DKPT(M) © Eakt) / QT © PMR(M) KINEL 460 
ocoi71 09 489 t841,12 KINEL 490 
OON172 Dims © PMS(M) @ PRMULT,M) KINELSOG 
000173 AC T4222 eal 142.239 9UML 
00g474 ACL © 254) © at © 2.93 # SUMM e ORMULT IM) KINELSS0 
000178 ECL IMEC LT edu 
000176 B(l © 2) e ACS » 2) © GUML KINES$20 
900177 460 EBLE) = aMAMACEBCT) ,aBScPRMLET 4) © RaT(M))) 
000178 ERCT) sataxXi(€B()).aSSce(ty)) 
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327379 re ceec*  - 2: 299.257.2985 alegssee 


o52242 > rt bed 20 See Se i €1ug399e 
2eck at Pe eed 20 eee eee 2 ee Se 2) alwessee 
322382 \ Pee er ree’ Pant Seer ee beet By 
233233 £95 6957] 657.85) efegss7e 
socyee 37 299 Tol. 892 €.6E1908 
3351985 ee eee PRS LOSE EELS Se eee Lee 
o35186 295 CANT Nee €ings00 
o2cus? eee Peat Phe ee ae SP Bel hal | @iuggeas 
232358 a3 El at_’ Sy Aas cinggeze 
toll es$ y Soa Saar 2 <teese39 
seehtc Coeoeer meres Tell E rh TT ACRE Lise aa Ty a8 ESut. 18 sPPRseC~ES 
352539: 27 2c4 Fren.e* 
2551%2 8a MOF 
320783 sOCL' 252,278,273 
3T01S6 222 "ena <9: 
252295 5 f262$', “* 
Miao T | foe pS2 285.265.2595 
co" 397 248 FESS’ Lae Leh eB aSE 1, ofyees 
Withee | 2s Ercset y “EESETLS 
205599 Bred 22 (2 -EESE: C3 
239zZe0 Se .cer Pere 
200273 awe, 
ee32ec2 SVE LaPKR @ PrP.) 
3C2c3 TECEKES: 332,195,903 
WwS2c6 19% EvEL Si. €-35 
923208 LE( Rete, MCAT, £02,293. 593 
305206 192 EXEL eL,. 8035 
"22227 193 CONTINLE 
tcogse EMRE COTA OV der, | 
sttec are Lean ter BIAS Ll Se Tiebe 8) 
bier > Se EAL EES Creag rT lg 
7 ectote TECAPSCE NEL es, ety 20, 20b BER 
325222 222 SM bsE. LL FiBL ee emawy se 5) 
ey Se CIB Tey eERR PRR >: 
craze aPeaMaNy aR.c,- 
T3c235 Pear ings. ak 
prey ae 274 5° 252 ssi. 
ST8257 PECIEC TY 253,293,955 
soo2ke 22D ale? wo2seaC o2, vo@le EO elem: 5, Mies. caMoaReRmy( yim); 
De0Z15 229 COST INVE 
oca2es Bleed eal vod.s Deb CL eC Sekl Chars egRre ae (@y/ei) 
soled. ACLO2 20a 0262 OES, 
set2cZ 226 CANTINVE 
2icees 235 FORMAT xp 2wEar ts, 194,38) 
Oltec4 LECMRCT 9g) 229,229,220 
exokan ae) 22C wOjPE( KOOL, 88) 
coce<4s 3% 221 155.182 
505247 22h wVITELKIL- SOC bC Led) sar, [OPG) Bi! 
3CCe2a eAPTECKICT,SOVECT 194,48) 
052229 225 RET EN KIWES710 


onerer aa 3a ane) KTNEL 720 
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13 CLOKN: G50-Gsm-o0 
PCN) + OPCRIP - SK) 
LEFT We SIOE (OR FORO PRET) OF ORIVINS POTENTIA. 
ARC © EPCRIM) 
WL = PRC) - PROPCPD 


‘ 
————— 


CAD 28. 


<< 


FXF CM) © CABBCVIK1D? © © COIN) - 1.9 © DPC - EOD 





cMKCH) - 1.) 32.96.36 


VIG _= VK2 © EXKCM) 
PH TIMES FORMARD RATE OF REACION I (PHAR 


PERC) = PERCH) ¢ VKR 
AT CH oem Crs PRPC >. POECPKRCH) >> 
RSIGCM) oA CM 


IFCRRCTO-1) 66.90.36 








3? TECKOUT, 38> 
38 POaPeN CPx! HOTT I HLKPE XO HOLKP/ OL TSXC8 HPPORRG 6 HPPERPS 2 HEISE x3 HIRT > 
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1. ELKMCHD. CELKCM) 
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SISLMD>-RSIGCH-1>> 186.108. 


REI OCH) RS IOcH- 2) 
RBTO<1-1 > 00UN1 


100 COM 


TART SECOND MAJOR LOOP ON REACTIONS 
105 00 200 Mte-1.HT 


RETACHMD a . 
MH @ MACH 
Coeeee]$ IT A CONTROLLING REACTION 


FCS) 106. 100. 108 








100 LL CMD a6 


OO 125 Lal.Is 
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iF PROACH) 310.185. 110 





TF CL ~ ULOKDD 115.125.115 
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<T.M>> 138.165.1935 


135 DUMZ = SRMUCI.M> / DUM 
IPCi)=1 
WP | eM + 1 
IF (MT - MP) 158.190.1490 


—v. E 
Y Wh 





Ki = bY 
© PRMUCT.MI> © PRMUCT.MI> - OUMNE © PRYUCL. HID 


IF CABS<PRMUCT.MID> - .001) 145.150. 150 


a 
165 PRMUCT.MI> = C. 


150 CONTINUE 







$55 00 160 Ket. 18 










160 ACT + 2.K> © ACI + 2.) ~- OUM2 © ACL + 2.K) 






+ 2) - DUM2 © BCL + 2) 
2—-DUME OE (LD 

‘DuM2 > 
XLCEBC I> .DUMZ © EBCL>> 


165 CONTINUE 


| PRMUCL.M> © DUMI 
ican hy Wi ata REACTION INTO ITS MASS BALANCE 
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@el ° 
EOL @€¢L>+PHRC MD OPRMUCL MD | 


i 170.230. 170 


o 


230 OELKCN)=(1 -EASE) ELKM(M) CAMINICL. . ABSCEOL/EBCL)>) 
ELKMCM) #ELKM<M>-DELK CM? 


TF CPRRCMD-PKPCMD)> 240,170,235 











238 PRPC =PRP CH OEXPC-DELKCMD 


PERCH =PER CH) EXP CDELKCHD 2 ] 


ee ee 


24 CA SPER CHD PRP CMD 
179 OO 176 JeL.ts 


IFCIFCCI>> 171, 171.176 










172 SUMD « RMUCJ.M> * PKRCM) - PHUcJ.M> © PKPCHD 


1P6 ACI + 2,3 4 2) = ACT + 2,J + 2) - SUMD @ PRAUCT. AD | 


{?@ CONTINUE 


suk = - PKPCM) © OKPTCK) - ERKCHD / RT © PHRCMD 
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60 160 feY1.i: dd 








MCT.) 
>-DUM 

+ 2.1) + SUMD  PRMUCI. MD 
2) + OUML 


180 EBCI> = AMAXICEBCI> .ABSCPRMUCT.M> @ RATCHD>) 
| EBC]? =AMANICEBCI?. ABSCECI>2> 


IF CKRCPD - £3 200.200. 185 






WRI TROUT BOY ACT Dy JeT TOPOS BCT 


195 CONTI 


RITECKOUT.59M, 11.22.L.LL, MM. 
WRITECKOUT. 50 >PRHU 


200 CONTINUE 
CoeseeHOOIFY COEFFICIENTS TO ACHTEVE LINEARITY AS EQUIL IS APPROACHED 


DO 206 MM=1, HT 
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CUM? =RS16<ii41> 
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246 EESECL =ECL)0C1 .-ERGED/ 1. +0UM2> 


D E(L3mE(L)-EESECL) 
BLL +8 eBCL 42 >-EESECLD 
EBCL> 2-8.) 

ARe1, 
EXEL PARC) / PRP CD 


| IFCEMEL) 191.191. 182 
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@€ CL. @OUM2/ CDUME +1. > 
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ACL42. LOMACL#2. 1)-EOL ©CDKPT(MN) C1. -ARD-ERKCM)/RT> 
ACL42. 2 ACL +2. 2 +E0L 





IFCIFC(3>) 203.203.205 
£203 ACL+2. 2>=ACL4+2.J+2)+ EDL O<PHUSI.MD0< 1. ~ARD+ARORMUCI. MDD 
215 FORMATCLX12HEBCI). 1-1, 18> 


JECKRCTI-1) 228.225.2820 
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0G 221 I-1.1SP2 
221 WRITECKOST.SO>CACI.J>. 301, ISPQ>.BCI> 


WRITECKOUT BO2CEC ID, Isl. 182 
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30. SUBROUTINE FIRSTG - B29A 
a. Function 


Computes or reads in first guesses for primary variables or instructs 


proyram to use values from previous case. Called by SETUP. 





nr. Lasting 


a Teketeten | C8204 e204 003 
ores. 2 SRO ive Fyagrg e200 002 
360573 SOON ZCOMs OAL TL, «MOML T2), SPEC FM! 79,18),003), LER CIO) 8200 8 Sougy 
goe5ce L cERSCLS) PLEASE LEP W498) 820, 4engy 
{ ageccs COMMON SET COMET A159), DETA(SS) °SOC245,9CUCSG) O46 2e)d B2(14) 6202 Semgy 
43902 Lec AMC233), BAS 0463, 103,80203960287 620s bouEy 
pgen > fora SIMMONS ENTCOMS ORC Z0) KIN IT APL MAT 2! MATL S MAT 2S, METAL 1,6, O24 =p ONY 
! csose LB, TTL. TIME NSPNSPMS Na, 8 LED, WEL BO, NON, 17S, x aPP 4, CAR, CASE( 3S) 6204 Gongy 
Bers tere 2,308), WWE NON KOCLDD  LTEM,SETES, KALI, NAT, 4OT2, [DENT KRG( 89) C204 SeNgy 
ei ekebes 3, 46uxXS. STIME, JOPEC. %9(3? 820, i100eNgY 
scccss SIMON /PRECOM/TIME( $5), PME LOS) PTET( $8),6E( 30), 8662), ROKAP( 40) B200 isenEy 
2eS212 4, ANCSE, VEaPLNOLSC,ID1SC1G0) -NBOC10) MEDC SO). 1TF( $0), 1PME,RAONO, 8200 sr2)6Ngu 
cstca3 2CONE ,RASFL( $0) ,800'%1 69), 8008040), Mad O29, 138NEW 
scocis COMPSON ARCOM E16 625).603059).8P(S,98, 9), aLPm O29, i140nEv 
300035 > Forest OE10.4) 0294 Cii¢912 
300026 @ FARM SELO. 4, SKIS) 
900617 S ¢7R447( 40012) 
So00s8 Po] I) 
ococs9 TEC LABSCKAC 2 DI0L) ALOeLLL 82 
oseoo2c 120 DUMLOCCEC ITEM ACCA LIISIGCL NET AD @6(3.9)) 8200 043 
900025 99 413 Usi,NE%A O20a 014 
9c0022 GC3,1386CSeTeQums @20a 015 
000023 662,1988¢2.1) 00UMs ; 0204 O86 
ocog2« Gid COLA ISCErLIOOCUMECG Sef eSlged)) 8204 037 
a 690025 so f0 192 B2en 018 
C00626 42£4 REMOCKIN, 4) ALPH FCS. 2) FC Sed de SBP 
ocos2? FECMRCZ), EGS) RRC ZIOMING (OTST, 03) 
ocooze AL SQe AL Pre ALPH: 
asco2¢ FC dei SF (Sei earsa 
000655 REAOCKIN, SICECZ.3 2, Ler META) 
$0053% 06 431 Yer sNETA 
le 230032 £32 FOZ, LOR C2, CAL OM 
900635 LLe2 
ognose ust 
600035 [ea 
000038 GO 134 Mei, Matil 
000037 foley 
oosj38 TECSONETA) £33,133,132 
250038 432 Teun 
000040 Lebel 
006043 whed 
900942 233 FL, , eB ad (Me 20P CL, 2 oBAL IM, 390R (9,4) 
090043 00 334 yess aTdy 
000046 134 ECuetIOPC Le Lr eBai tM yeh (2, Jed) 
000c45 Bai(i1,2)04.0 
090545 Call M&7S2( Bas) 
CooC4? DE 138 KeNUL,NBPMS 
00004§ READ(KIN, 3) SPC2,20K), (SPC LE Kd, 18d NEPA) 
000049 $F(2,2.%)°6P( 2.4," OAL PH 
206050 L982 
000051 fed 
0900052 ON 138 4e2,MaTel 
000053 Teles 
occas LECTONETA) 136,136,135 
000055 135 je2 
000056 Lekes 
000057 436 SOCL, 1 eK) sBar(%,1 OSP(L NET ALM) eBa2(M, 4 O8F: 640K) 


600058 OO 138 ye2sMaTau 








390539 
92006¢ 
399063 
I3S062 
9c9c63 
ocaces 
390965 
990066 
000067 
900068 
020068 
ecco7s 
900071 
9c0972 
000073 
C90074 
006975 
COt076 
900077 
720076 
ogco79 
000080 
090083 
000082 
Co0csS 
oocos. 
oco08s 
000054 
000087 
S0G8s 
000089 
000090 
000093 
000092 
cocoes 
090094 
000095 
0c009$ 
000097 
000098 
000089 
000100 
090104 
00012 
390105 
000108 
050108 
000106 
000107 


136 


240 


112 
195 


108 


109 


114 


SOC LK BRC ee eK OBA, YIOBICL, Yoh. K? 
CD 14S Mes, Mat?! 

Balt ,idec, 

LEONSPMS 5T.Gs MEACCKIN, 8) (LER CK), Kol, HBP) 
LEF (%3P 04) 3 

LEES (NSP 04 183 

GO 72 3132 

REAC (KIN, 3)6w 

ALPMe 4, /ETA(K APPS) 

FC3D,1)8 ALPE ACK aPPa re (CSARoCganes, ) 
Diy eaL Owe Ta (Kshs e(CBske2,§) 

EPAT OAL PMs (F( 3,5) 2OUM1) 

O':4200, S/ETATOALBM/ETAT 

SUMJOAL PM / (ETA MAPPA)CETACNETA) 1005911 ,0CRAR! 
F(G,4)802, e6UN2 

O” 114 fad. Karma 

LOCETAC ToL) ETAT) $08,200,209 

FCS LLCS, A oOUMZOETAC LoL) eral toi) 
FCS, LoL yak (S,; 92, eOUMQeET altos) 

F( 4, 0d) 802, 00UN2 

co fC 246 

FC 2, Led eabLPns2, eDUMiogval set) 

FCS, Tel) sOumy 

Fc, Teds ede . 

FUL Sed SE CL, 190K 2, L2H (2, Lod) /B ODETAL 1 ¢2) 
00 £07 1eKAPPa,NETA 

F(Z, 1) PALPM-OUNS (ET A(NETA) ETA) Doo? 
F(3,1)82, eDUMSOCETACNETA)@ETA(T)) 
£(4,1)922, eCUMS 

Kea, Ppeel ss deg eee, fpewld, Legs )/2, angractes) 
Huma( GEC STEM) GW) /aLPH 

00 i235 tea, NETA 

CCL LISA 2,1 eOUMEGY 

6 2,1)8F (3.12 00UM 

gt3,2)8P04,1)edUM 

CONTINUE 

FORMAT ( £X1P22610,3) 

FORMAT(SXLOHDERUS FINS? CUESSEC) 
1FCRROL9)) 9902,9905, 9902 

CONTINUE 

WRITECKOUT, 6004) 

OC 9906 J0i.4 

@RITECMOUT, 9908) (FLT, 0), ced NEPA) 

07% 9955 KeNUL,NSPMY 

po 99CS [91,3 

WRITECKOUT/ 9901) (BPC Td Me ded NOTA) 
CONT INUR 

RETURN 

€NO0 
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B20 064 


oz9a 067 
B29, 668 
6296 0 
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c. Fliow Chast 


IF SCINCS D—BD—1) 110-211.132 


| 116 Guniecee CT EMD~OC 1. 1>>/(OC1. NETAD-OC1. 1) 


OO 119 Tet.NE] 


118 BCL. PeGCL. L>sOUMiece Ct. 1)-6C1,1>) 





a > ALPH.FCL.19.F 63.13, 
IF PROD, ga. 3) KRC2eMINOC-IST.-12 


F(a. LoeF <2. 1 OMLSO 
REAOCKIN. 3>(F C2. 1), I=1,NETAD 


ist fea 
131 FCE. TyeF le. TeALPH 


tLe? 


ie Tal 





OO 324 MeL. MATLI 
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136 FCL. TDF CL. 1-BRI CH. J OF (2. 5-39 


3W.23>_ SPC2.1.K>, COPC1. KD. Ie NET 


2.1.) 2.1, K>0RLPH 
@ 
aC 


2 
Lei+1 


{ PCL. IK LCM. 1 208P CLNETR. 


O00 120 Jae. MAT2J 






PCL, 1. K=SPCL, 1, K)-BAR CH. J 


LJ-1.K 
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SCENE et | 


TF CNEPM1 .GT.9> READCKIN. 5S > CLEFCK). Kei. NaP> 
LEF CHSP oi a9 
LEFSCNSP +1 23 


KIN. 3) 

4. /ETRCIOPPRD 
-is eer accents Cannel. > 
1 aALPH/ ETACKAPPRD © (CBOAR-O .5 


BRS I rosea, -CBRR) 


FCG, 1)=-2, 





00 107 [eKRPPA, NETA 


F (2. T>=ALPH-DUMS@CETACNETAD-ETACI> eo? 
| CS LE iene ED te Le A ne 
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31. FUNCTION ERP(X) - B30A ‘ 


a. Function 


Forms Dawson Integral of X. 





ae te Anat athe Be 


b. Listing ; 
000001 FUNCTION ERP(X) 
000002 1x802, oXex 
0e0003 1F(Xe2,) 559,45 
oo00004 5 Re ,8 
900005 FNeSL 
o0cod6s DO 40 101,15 
000007 Rul, oReTXS/FEN 
00oonse 10 FNaFNe2, 
000009 ERP akex 
000010 RETURN 
060%32 if SEM] CONVERGENT SERIES FOR LARGE X -~ {NCLUOE 0 TO Rat OF 
000012 C SMALLEST TERM AND Raf TO 4, OF PRIOR TERM IF SMALLEST TERM 18 
0000%3 $ BEVENTH OR PRIOR TERM, 
o000s¢ 15 IN@(TXS@3,)/2, 
000015 RaTa0,68 
000016 IFC IN@6) 20,520,258 
000047 20 FNSINOINag 
000018 Re (TXS-FNO2, )/2,eRAT 
000039 RaR/TKESLENOZ, DOR/RATORORAT 
000020 6n FO SO 
000021 25 Ne? 
000022 Reid 
000025 FNed3 
= 000024 30 00 35 Je4,IN 
000025 Rei, sRePNs/TXS 
000026 35 FNOFNe?, 
000027 ERPOR/(2,0X) 
000028 RETURN 
000029 END 
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c. Flow Chart 
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000001 
000002 
900003 
000004 
006005 
660006 
000007 
000008 
000009 
000010 
000033 
000G%2 
000033 
000034 
000045 
000036 
000037 
000038 
000039 
090020 
000021 
000022 
000023 
000024 


b. 


Listing = 


Cc 


g30c 

SUBROUTINE LUAD( Le bev. 0) 

COMMON/ERRCEOM/FLEL 43), GL6(30)-SPLEC3C, 8),EL4(323) FL EM, GLEM 
L,SPLEMC 8), ELM( 149, EL MM, TPLM GLAM, fSPL MC 8) NELM, ILM, OFL (435 
2,56L630),08PL(30, 6) FNLE(283,GNLO¢19), SPN E(15, 6), ENLC195) 
3, FNLEM,GNLEM, GPNLEM! &), ENLMM, TFNLMLIGNLM, ESPNLM( 8) 
4, NENLM. INLMM,OFNL (28) ,OGNL(95) OSPNL (35, 8) ORNL(105 

COMMON/ETACOM/ETACLS) -DETA(19) .084614),00U(24),820196),82624) 
1 LAN( 353), BAL043,903,802(590,89) 

COMMON/NONCOMN/AM( 183,153) OVAL (2539), PEW: 

LVLNKW,DLPHC 0) ,OLPKE 8, OF, OTMW,OTKH( 6), PLUNUBC 9) 

COE PON PET CONZRRC ZONA CINS ROUT UNAT AN CHANEIPRATS JOneTeueMeTS 

tE(L) 163, 

ENLCT) @ ENLCT) eCOPLE(Y) 

00 2 Ke2,"aTiy 

AMCT KIOAMC TK )@COBAL( aK) : 

RETURN 

ENL CT) SENLS I pe CoSPLEC ULL) 

KKcLaMa?2yzemaTiy 

DO 4 Keg, matey 

KM aKKeS 

AMC TREK OAMCT KK) eCoBa2( lk) 

RETURN 

ENO 


@30C 
a3oc 
ed0c 
e3oc 
B3oC 
e3oc 
B30¢ 
e30c 
B3oc 


JoNEey 
GeNEw 
gSoWgw 
Gongy 
7eNEw 
OoNngw 
9eNEW 
L00NEW 
LiLeNgw 
Cx ry | 


00543360 
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SECTION III 


OPERATION OF BLIMP COUPLED TO A CHARRING AB).ATION PROGRAM: 
THE CABLE CODE 


1. INPUT INSTRUCTIONS 


The input cards for the CABLE program consist of a nearly complete set of 
CMA input together with a complete set of BLIMP input, plus a few extra cards. 
Input instructions for the CMA program from reference 3 will be repeated here 
for completeness. The BLIMP input instructions are contained in Volume I of 
this report, and will only be discussed here in general terms. The user should 
be thoroughly familiar with BLIMP before attempting to use the CABLE program. 


a. Restart Card 


The CABLE input is started with a control card which is used to indi- 
cate restarts, or whether restart information should be saved for future use, 
and the KR array for the BLIMP program. In the case of restart problems, only 
this data card, CMA decks for subsequent stations, and the last BLIMP data card 
(. or ,) together with restart information on logical units 12, 13, and 14 are 
read in. 


Column Format Data Units 
10 Tl KCM (10) 


Q indicates this is a new case 


1 indicates this is a new case, save information 
for restart 


2 indicates this is a restart 


indicates this is a restart, save information 
for other restarts 


The next four fields are used only if this is a restart case. 


11-15 I5 ITEM. This is the time index from which the prob- 
lem is to be restarted 


16~20 15 IS. This is the station index from which the prob- 
lem is to be restarted 


21-30 15 NITEM. Total number of times to be considered at 
each station ; 


61-80 2011 KR. This is the KR array for the BLIMP program. 
In the case of restarts elements 3, 4 and 13~20 of 
this array may be differant from the array in the 
c.8e being restarted. The new values will then be 
used at all following times and stations. 
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b. CMA Program Input 


The input to the Charring Material Thermal Response and Ablation pro- 
gram can conveniently be divided into seven parts. All seven portions of the 
deck must be present for each run. These individual parts will be described in , 
the following subsections. 


(1) Title and Heading Information 


The first three cards of the data deck are used tc transmit title 
and heading information to the output. The first 72 columns of aach of these 
cards way be used for the title, the alphameric information in columns 61 through 
72 of the third card being used as a page heading on all pages after the first. 


(2) Internal~Decomposition Kinetic Data 


These three cards supply the constants used in equation (2) of 
reference 2.* They are supplied according to the following format. 


Column Format Data Units 
1 Il Alphabetic character A, B, or C referring to the 
material components. These must be on the first, Z 
second and third cards of this set in order. 
11-20 F10.5 Initial density of component i, Po, lb/ft! 
21-30 F10.5 Residual density of component i, Py lb/ft ; 
i 
31-40 F10.3 Pre-exponential factor, By sec 
41-50 F10.5 Density factor exponent, vi o-~ 
51-60 10.3 Activation energy factor (E, /°R) °R 
i 
61-70 F10.5 Minimum temperature of reaction zone R 


The last entry in this table, the minimum temperature of the reaction 
zone, is included only as a means of reducing computational time. Thus, if a 
nodal temperature is below this value, the program will bypass the fairly com- 
plex density-calculation procedure. Also for the case of a nondecomposing re- 
inforcing material, the value of this temperature can be set to a ridiculously 
high value, thus assuring no decomposition. 


® . 
Reference 6 cites relevant data for many materials of interest. 
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(3) Output Interval Specification and General Program Constants 


Two cards are used to provide the program with the values of cer- 
tain general constants, to establish the time intervals for which output will be 
obtained, and to specify thermocouple and isotherm output, if desired. (If 
thermocouples and/or isotherms are called for, additional cards are needed, as 
described.) 


First Card 


Column Format Data Units 
1-2 I2 Number of nodelets per node (blank implies 10, wee 
maximum is 152/total number of nodes) 
3-5 13 Total number of nodes (maximum of 38) —- 
6 Il A nonzero punch in this column will cause thermo- asad 


couple and isotherm output, normally listed with 
regular output, to also be punched as :ards. 
Punch output on logical unit 7. 


7-8 I2 Number of thermocouples for which output is de- aaa 
sired. (The depths of these thermocouples are 
specified on additional cards of this group.) 
Punches here will cause thermocouple tempera- 
tures ag a function of time to be output at the 
end of the regular program output. Maximum of 
this plus subsequent number is 20. 


9-10 12 Number of isotherms for which output is derired. -o-- 
(The temperatures of these isotherms are speci- 
fied on additional cards of this group.) Punches 
here will cause isotherm depths as a function of 
tima to be output at the end of the regular pro- 
gram listing. Maximum of this plus previous 


number is 20. 
11-20 F10.5 Initial value of time sec 
21-30 F10.5 Final value of time sec 
31-40 F10.5 Initial output time interval sec 
41-50 F10.5 Second output time interval sec 
F1-60 F10.5 Third output time interval sec 
61-70 F10.5 Maximum time step permitted under any circum- sec 


stances. If unpunched, this limit will be set 
egual to 5.0 seconds. Recommended value is 
0.001 times total elapsed time. 
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Second Card 


Column 


1-10 
11-20 


21-30 


31-40 
41-50 
51-60 


61-70 


71-80 


Format 


F10.5 
Flo.5 


F10.5 


F10.5 
F10.5 
F10.5 


F10.5 


Fi0.5 


Data 


Time of trangition from initial to second output 
time interval 


Time of transition from second to third output 
time interval 


Minimum thickness of last ablator node. When, 

because of surface recession, the last node of 

the ablation material shrinks below this value, 
it is combined with the adjacent ablator node. 

A value equal to the second node's thickness is 
usually appropriate. 


Heats of formation of the virgin plastic, the 
char, and the pyrolysis gas, respectively. 
These are evaluated at the datum temperature 
given in columns 71-80. 


Volume fraction or mags fraction of the virgin 
plastic which is occupied by resin. If mass 
fraction, it is input as a negative number. 


Datum tempsrature for heats of formation given 
in columns 31-50. This must be the same ten- 
perature as used in the BLIMP program thermo~ 
chemical data cards. 


Additional Cards as Required 


Column 


1-80 


thickness, and the contact resistances between them. 


Format 


8 (F10.5) 


Data 


If thermocouple and/or isotherm cutput have 
been called for, these cards specify thermo- 
couple depths in inches below the original sur- 
face and isotherm temperatures in degrees 
Rankine. Isotherm temperatures must begin on 
a new card. The total number of thermocouples 
and isotherms may not exceed 20. If no thermo- 
couples or isotherms are called for, these 
card(s} are omitted. 


(4) Nodal .aca 


Units 


sec 
sec 


in 


Btu/lb 


Units 


in 
and/or 


A set of cards equal in number to the number of nodes is used to 
provide certain information with regard to the initial state of the nodes, their 


In addition, the first card 


of this set is used to specify the geometric nature of the exposed surface, that 


is whether it is a flat plate or an internal external radius. The format for 
these cards is shown below. 
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Column § Format Paka Units 
1-2 I2 Material number, 1 for virgin rlastic, 2 for char. --- 
3-12 E10.0 Initial temperature of the node. OR 

13-22 E10.0 Initial cross-sectional area of the node, in any Arbi- 

units or normalized on any convenient reference trary 


such as the surface area. This data is required 
only for "general" geometries; for planar, cylin- 
drical, and spherical geometries, and for s).apes 
for which the area varies as a power of th: radius 
the specification of individual nodal areas is not 
required and these columns should be left blank. 


23-32 E10.0 Initial thickness of the node. in 


33-42 E10.0 First card only. 0 for planar surface; positive 
value of internal radius or negative cf value of 


external radius for all nonplanar axisymmetric 
lige lca (including spheres and shapes with 
A-~r). 
Second card only. Exponent on radius giving nodal 
Cross-#cstional area variation for spherical and 
other "regular" geometries. Sphere requires 2.0. 
No entry needed for planar and cylindrical geome- 
tries. Must be blank if "“ganerai" geometry option 


is used. 
43-52 E10.0 Contact resistance between this node and the next ft?- 
node. sec~ 


On/Btu 


(5) Back Wall Heat Transfer Conditions; Char and Pyrolysis 
Zone Criteria 
Heat transfer at the back wall is characterized by a convective 
heat transfer coefficient, an emissivity, and the temperature of a "reservoir" 
to which heat transfer takes place from the back wall. This card zllows the 
specification of these three quantities. Blanks serve to specify an insulated 
back wall. 


Two additional entries define char edge density and pyro'ysis zone edge 
density according to the following definitions: 


Panga: Pat FQ (0, ~ Pg) (1) 
edge 
Poyrolysis = °c * Tp (Pp ~ 4) (2) 
edge 


The user inputs values for ry and Tp: Typical values are Xr, = 0.02 (defining 
the char edge as occurring where the density 18 m, + 202 fp, - P,)) and Tp = 0.98, 
If no entries are made for to aad tor 0.02 and 0.98 wail be assumed. 
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Column © Format Data Units 
1-10 F30.5 Back wall convective coefficient eee 
11-20 F10.5 Back wall emissivity --- 
21-20 F10.5 Reservoir temperature SR 
31-40 F10.5 Char zone criterion ro Sted 
41-50 Fi0.5 Pyrolysis zone criterion TD ete 
60 Il One punch calls for output of thermal conductivity 


in place of enthalpy in standard output block 


(6) Material Property Tables 


In these tables are presented the reqvisite thermodynamic data 
for the virgin plastic (material no. 1), and the chaz layer (material no. 2). 
These data are input as functions of temperature according to the following 
format. 


Column Format Data Units 
1-2 I2 Flag, nominally zero, +1 marks rminal card of “on 


last material property tabla, -. marks terminal 
card of other intermediate material property 


tables 
3-12 F1C.5 Temperature (independent variable) R 
13-22 Fi0.5 Specific heat ade 
23-32 F10.8 Thermal conductivity Btu/ft- 
sec-OR 
33-42 F10.5 Emissivity o-- 


The program always expects to find the first two tables for materials 1 
and 2 (plastic and char). For problems without decomposition, a "char" table 
should still be included. It may, of course, be a duplicate of the "plastic" 
table except for any flags. 


The number of temperature points in each table may not exceed 20 or may 
not pe less than 2. The tables must be ordered on aither ascending or descend- 
ing temparatures. 


Note that the virgin plastic propertiez table must precede the char table. 
Material properties for partially degraded or charred material are formed from 
weighted averages of the plastic and char properties for the relevant nodal tem- 
peratures. The weigi:ting variable is x, the piastic mass fraction (i.e., the 
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mass fraction of pure plastic, in a simple mixture of pure plastic and pure char, 
required to yield the local nodal density): 


nero + aati k deo aplasia 


Perens 


e p 
x = ——P_ [1 - -= (3) 
Pp Pa 'e) 
Thue 
Cc. = xC. + (1 ~ xic (4) 
PP, Po 


The thermal conductivity k will be weighted in the same manner. 


(7) Pyrolysis Gas Enthalpy Table 


In this table the variation of pyrolysis gas enthalpy with tem- 
perature is specified, These values are added to the heat of formation of the 
pyrolysis gas as specified on the program constant cards. This table is pre- 
sented on card pairs, the first of which presents a set of temperatures (up to 
8), the second containing the corresponding enthalpy values. The first column 
of the temperature card is used as a flag, nominally blank but containing an 
integer to mark the last pair of cards, The format for this card pair is given 
agp (Il, F9.5, 7F10.5/8F10.5), implying a basic field length of ten columns for 
both temperature and enthalpy, with the excepticn of the first temperature which 
is restricted to columns 2 through 10. The temperatures should be given in 
ascending sequence with 8 entries on each card pair (with the exception of the 
last card pair which may have from one to eight entries). The total number of 
temperature pointe in the table may not exceed 30 and may not be less than 2. 


¢. Grid Points for Interpolation (ms , ms) 


As discussed in reference 1, CABLE interpolates a matrix of BLIMP so- 
lutions in the (m*, mt, 6) or (ms, T, 6) COOTSLIEES ar Eey so form the boundary 
conditions for the CMA program. The matrix oF (mg ma) or (mgr T) values are 
input in one card set. Up to = values of my may be read in, with up to 19 
values of més and/or T for each my value. The program assumes that everything 
less than 99.is a normalized mass flux rate, while everything greater than 99. 
is a temperature. All assigned temperature points should precede all me . Up to 
10 cards of the following type will be read. 


Column Format Data Units 
1-4 F4.0 m* aon 
g 
5-80 19F4.0 mx or T dimer 
sionless 
or OR 
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Last Card of this Set 


Column Format Data Units 
1-4 F4.0 View factor for reradiation from the surface -ee- * 


a. BLIMP Inpuc 


An ordinary BLIMP input deck, complete through but not beyond card 
group 15, is input next. The input KR(9) and KR(11) values are ignored, however 
the user should leave the KR9( ) array blank (group 3, card 3, field 2 of the 
BLIMP input). 


e. Other Decks and Last Card 


A new CMA deck is input for each body station. These may be dupli- 
cates of the deck prepared under (b) abovs, or it may be altered according to 
changes in material, thicknesses, etc. The last card of the CABLE input deck 
should contain a period (.) in column 1, as discussed in Volume I, Section liI, 
Last Group. 


2. OUTPUT DESCRIPTION ‘ 


The output from the CABLE code consists of the usual output from the CMA 
and BLIMP codes. Program output begins with an output of the input title and 
heading information, internal decomposition kinetic data, output interval speci- 
fications and general program constants, nodal data, material property tables, 
and pyrolysis gas enthalpy table. All this output is fully labeled and is 
printed exactly as input by the user. The standard BLIMP summary of input con- 
ditions is listed next, including the KR array, eta values, enthalpy, pressure, 
and radiation flux tables, material compositions, and thermodynamic property 
curve fit data. An edge gas stagnation solution at time zero (or other initial 
time) followed by edge gas expansions to the pressure at each body station ap- 
pears next, these solutions being summarized in an edge gas expansion summary 
table. Output of boundary layer and in-depth solutions then begins. 


The solution output begins with a CMA solution at time zero (or other 
initial time) which shows the material starting condition. The first BLIMP solu- 
tion appears next, for the first (ms, mt, 6) or (ms, 7, 8) combination. In order 
to proceed to the next mandatory time, another BLIMP stagnation solution and edge 
expansion is carried out. BLIMP soluticns at the remaining combinations of (m*, 
me, 6) or (m*, T,@) are then run to fill in the interpolation matrix which pro- 
vides boundary conditions for the CMA program. The CMA program then proceeds, 
printing output at the specified print interval, until one of two events occurs. 
If the solution exceeds the Limits of the current (mf, mt, @) or (mg, T, 9) 
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interpolation cube, new BLIMP solutions are run mmediately to fill in the corners 
of a new interpolation cube. If the CMA solution proceeds up to one of the man- 
datory solution times, the actual values of ms and me or ms and T are then used 
to generate a BLIMP solution at that mandatory time. The CABLE program then pro-~ 
ceeds by forming BLIMP solutions for interpolation at the next mandatory time, 
and carrying out CMA solutions using interpolated BLIMP solutions for boundary 
conditions until the final mandatory time is reached. 


Saat 6007s aera PS VE ellis Sea NE een 


3. SAMPLE PROBLEM 


As a demonstration of the CABLE program, a coupled transient solution was 
run for a sphere-cone reentry body with a nose radius of 0.5 inches and a cone 
half-angle of eight degrees. Two body points at surface running lengths of 10 
and 16 inches (based on the original body shape) were aralyzed although there is 
no reason other than ccmputer time limitations why more body stations could not 
have been specified. Laminar flow was assumed for the boundary layer to hold 
the required number of nodes to a minimum. The heat shield material was one- 
inch thick phenolic carbon with properties as described in reference 6 and was 
insulated at the back face. Total flight time from 300,000 feet was 27 seconds 
with an impact velocity of 17,000 ft/sec. Pressure ratio P/P,, at the body sta- 
tions of interest were assumed to be 0.0262 and 0.0195 for the entire 27 seconds. 
Mandatory BLIMP solution times were 0.0, 7.0, 14.0, 18,0, 21.0, 23.0, 25.0, and 
27.0 seconds. Due to the plateau-like behavior of this carbonaceous material, 
interpolation on surface temperature rether than me was selected for the entire 
flight. Temperatures from 500°R to 9500°R at 500°R intervals were used. 


Based on observation of the results of this sample case, it appears that 
the maximum allowed time step of 0.5 seccnds input for this case was too large, 
allowing oscillations of the pyrolysis gas mass flux which in turn required an 
inordinate number of BLIMP solutions for jnterpolation. The value suggested in 
Subsection 1.b above of 0.001 times the maximum time (0.027 seconds) would have 
resulted in a more stable solution. 
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CMA GFCK FOR CABLE ANALYSIS OF PHESSt 


II 


Input for CABLE Sample Problem 


re 


tu 


CARBON HEATSAHIELO 


TwO STATIONS se ONF INCH THICK PH. CARBee PROPFRTIES FROM N*&SA CR 72301 
KIRTLAND SAMPLE PROBLF4 NOW & 


A 40.75 37.4 4.48 F93.0 306° F4600. 
R 20.25 1.40 E43.0 1.5% £41000, 
c 97.4 97.4 he Ce S60G.. 
15 0. 27. 1. le 02 95 
le ee of? -376.5 0. -.330 536. 
1530. Pap | «~1.78A 
1530. M1 
1530. 002 
1530. ar 
1530. 03 
1536 - 03 
1530. eA 
1539. 0 AS 
1539. AS 
1530, oS 
15390, el) 
1530, Pas 
1530, 1S 
1530. 015 
1530. 029 
1-¢ E-10 530. 
530. 0.2.9 25230-96 1.9089 PX4926 (VIRGINe60 DEG LAYUP) 
#00. 02360 2540-04 1,009 MX4926 (VIRGINGED NEG LAYUP) 
1160. 0.360 7940 H04 1.000 MX4926 (VIRGItH*60 DEG LAYUP) 
1500. 0.472 7 -940-04 1,000 MX4926 (VIRGIN®60 DEG LAYUP) 
2000. 0444 22940-0904 1.000 MX4926 (JIRGINS60 DEG LAYUP) 
3009, 0492 22940-0464 1.000 MX4926 (VIRGIN®60 DEG LAYUP) 
6009, 0.498 2.94004 1.000 AK4926 (VIRGINe60 DEG LAYUP) 
5000. 0.50 2.940-04 1.000 MX4926 (VIRGIN®E0 DEG LAYUP! 
-1 6000. 0.500 2 2940-04 1.000 MX4926 (VIRGINe60 DEG LAYUP?) 
530. 0.710 202%0°94 1.000 MX4926 (CHAR «60 DEG LArUP) 
1009. 03430 2 FRO =U4 1.000 MX4926 (CHAR 965 DEG LAY} 
1500. 0.472 3.03504 1.000 MX4926 (CHAR ¢60 DES LAYUF? 
20090. 6.484 3-9N6-04 1.900 MX4926 (CHAR 960 NEG LAYUP) 
3000. 0.493 8.490-04 1.000 4¥X49246 (CHAR +60 DEG LAYUP) 
4000. 6,498 14.300-04 1.000 MX4926 (CHAR «60 DEG LAYUP) 
5000. 0.500 70.950-04 1.900 MX4926 (CHAR +660 DEG LAYUP) 
+1 6000. 0.500 78.100-04 1,000 £4626 (CHAR 660 SEG LAYUP) 
1 900.0 1890.0 2700.0 JCdoe 4500.0 5400.0 6300.9 
-1782.0 930.2 195,06 “S920 3600.0 4696.0 615¢.0 


50910001500290025003000350040., 


*§5600550660066500 7009 75008995850090009500 





50010001500200025003006350046000 +30050005500600965007000 75966009850090609500 
500100015902000250030N035004990450050005500€9006500760075608006959090009500 
§001000150026002560 3000350040004500500025f ~609650070007509800085009000950N 
50N1000150020092506 30003504400 04500500055096009550C 7000 75048000850090009500 
§0910001560200025003000350040N04599050C0550060005 .0700075008000650090009500 
5001000150020002507369035004009450050005500600065061 190 75008000850690009500 
§001069150620002500 30903500400045005000550060006500 7000 75098000850090009500 
0016901500200025U9 30003590400045095000550000005500 7000 75098000850090009500 
5001960350020002509 316060350040094500500955 1060006510 7000750080 “0850090009509 


f.tan card) 
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101946401224202 1 CARLF SOLUTION FOS PH. CARBON YEATSHIELD 


4 
8 
G6 Te 14. 1A. 2l. P%. 256 27. 
2 
0284333 1.3333 
7 
0. ee 06 1.2 2a 3. S. 
S AN 
0.149 68,7187 
00011323 05n9 1,033 8.22 40.4 197.3 203. 267.5 
10000, 10120. 19230, 101890. 9879, 9140. 7700. 5700. 
100. 
5S 431 73.4 32. 3.467 104.7 ROO. 
1HYDROGEN 1.00797 66 
6CARRON 12.011 6e le. 
TNITROGEN 14.008 -.745 
ANXYGEN 16.900 i be) le 
99ELCCTRON 9.00055 
. 36 © 909 7 0 6 7 A 0 0 0 A QUANAF 12769 C3 


VROA7NAB 36622045 1464416? 4225 36-4- 16822747 T9R4G104+2 S00. 3000.1 0.C3 
1R9E7TH+6 26622005 1447826? 792732-4-646R77+6 TIRGIO+2 3000. 5000.) 0.C3 
1&4 A 0 fF HF GF MH HH HO 0 O 1 OJANAF 03/41 _ c+ 
ONDNON-O 1446472645 SAACTS5¢1 953976-46=7666 216 12129962 S00. 3900.2 100.C# 
000900-0 1464170¢5 48513461 291605-3 30720247 12129N+2 3000. 5000.2 100.C# 
1 6 1 8 0 @ » 0 6 0 0 0 & GCJANAF 0375) co 
=2641700S 223957065 86504061 117071 =3-79A21146 65370042 S00. 3000.: 0.CO 
“26417045 22357665 11549647=-424} 39=3-13156348 6537002 3000. 5000.1 0.C0 
» + 7 9 0 0 6 9 0 6 0 90 H OJANAF 127450 H 
521020¢> 23473045 4AR2236)] 555469-4 17309546 388620+2 S00. 3000.2 0.H 
52102060 13423095 308752+) 315925=+3 929744+7 388620¢2 3069. 5000.! 0.H 
2? 7 00000 0 7 0 0 @ 0 OJANAF 13741 N2 
000000-9 221650¢S 8626991 136090-3-103715+7 6376502? SOC. 3000.1 0eN2 
00N000=0 22145545 98417541 -116232-3-612728%7 637650+2 3000. 500061 OeN2 
16 0 © 0 06 9 9 0 0 0 0 OJANAF 03761 Cc 
170RBG6+6H 13550045 444433¢1 222125-3 41993046 497287942 S00. 300061 0.C 
P7ORBG%6H 13550065 41223261 261908-3 26288647 492A7042 2000. 5000.1 0.C. 

6 } 1 6 0 0 Hh 7 H 0 0 0 O OJANAF 03/41 Crd 
-172950+5 530790+5 22094R+? 677896-3-75506127 B2597N+2 S00. 390061 0CH4 
“17895966 53079045 2360536? 374323=3-368234+7 8759/7N+2 3000. 5400.1 0 eCHS 

16 t 7 9 © 0 fF 4 0 fF O O OJANAF 12762 CN 

109600¢5 232490¢F A559NH6] 119376-2 47951746 6697602 S00. 3000.1 0.CN 
1039000+h 237490¢5 GRAN} 361 313R55-3-649453+7 66976042 3000. 50NGe! 0.CN 
bot) 46 © Bb 9 49 0 80 0 9 0 ODJANAF 1376) CH 

14200666 22130045 8260794) 39771) =3-100184+7 B1A120+7 SON. 3000.6! UeCH 

14200646 22130045 70709} +t 4632B81=3 SS2A60+7 614612042? 3900. 500061 0.CH 
: ho}. 6 + 7? O 7 NH 0 0 OH OO OJANAF 077A] CAHN 

322N0045 35593965 13792442 552243=3-22h95547 75RHPN6?2 SOO. 300941 06 CHN 
31700045 35593065 17AR956¢2-2950572= 4-1 RIATIOB 75R62Ne? 3000. SOND.) 0 eCHN 
hoy ?}A | B&B HF 6 HA GF HF QO N GJANAF 0376] CHO 
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29000064 373467045 12R033¢? 300638-3~201721+7 789830+2 S00. 3000.) 
29000064 392347045 1030780? 633312-3 121615+8 789R30+2 3000. 500C.1 
16 2A 060060 80 4 0 © 0 0 O OQJANAF 0376! 
940564065 36935065 146559¢? 210 9R623-182392eF 798480 590. 3000.1 
=94054005 36575045 1564514%?~381561-4-60776AR¢7? 79B4KNe2 1000. 5000.1 
2¢«- 06006000 0 0 0 4 @© 6 DO AJANAF 9/61 
19899906 2466990¢5 776612¢1 696081-3 185649¢6 685519+2 500. 2000.1 
198999¢6 246990+5 1041620? 564841-4-640205+7 68551992 3000. 5000.) 
@ 126949 0 9 0 08 0 0 © D8 OJANAF 03/461 
54190005 48257045 189960? 769044-3-409039+7 849690¢2 590. 3000.1 
54190065 482970¢5 203952+? 389042 -3-645297+7 849690+2? 3000. 5000.1 
» 1 7 80909 0 0 09 0 0 6 O OJANAF 12760 
933000+4 21404065 7731936] 394386-3-973561+6 613820¢2 500. 3009.1 
933000+4 21494005 96514441 -4643528-4~68611597 613820¢2 3000. 5000.1 
2 1000000 0 0 0 0 0 OJANAF 03/61 
000000-0 21Z10N+S TLIDE3oL 621950—3-71 269406 48465042 500. 3000.1 
090000-0 212109+5 681794¢1 SAD8S4-2 2651067 484650+2 3000. 5000.1 
23 1 8 0 0 0 80 0 G&G 0 0 O OJANAF 03761 
=S5779AN6S 3020105 1122546? B11397-23-260800+7 684210¢2 S00. 3000.) 
=-§7798065 302010¢S 15727842-191548-3-17359968R 6842102 3000. 5000.1 
1 7 60 00 0 0 7 0 0 0 O OJANAF 03/61 
112965+6 13437045 48694441] 383516-4 958460-S5 4809v0+¢2 500. 3990-1 
117965+6 13437665 42896741 260844-3-2417273+6 480900¢2 3000. 5000.1 
1 7 : 8 © 0 0 0 9 0 0 QO GO OJANAF 06/63 
21580045 22700045 87762341 899031-4-7896564+6 6388490¢2 500. 3000.1 
21580005 22700045 9162604) 657885-5-212519+7 688490+2 3000. 5009.1 
+ 8 0 0 060 0 0 0 0 0 9 0 O OJANAF 06/62 
§95590+¢S5 213522045 497228] 38N768-S 15474945 500960+2 S00. 3000.1 
§95590¢5 13522045 6574A9¢] -224268-3-891782+7 500960+2 3000. 5000.) 
ee 0 00 0 0 0 7 0 6 0 0 OJANAF 03/61 
000000-0 234460+S 804370+) S10872<3-152718+6 67973042 500. 3000.1 
000000-0 234460¢5 103071+¢? 290991-4-783079¢7 679730+2 3000. 5000.) 
199 060 0 004 0 6 0 0 0 0 0 OCONVAIR ZPH-1l22 12/61 
#149010 +5+498851 ©] ~272800-5-135900+6+164558422006., 10000.1 
14901065 ¢49885) ¢ 1 -272800-5-135900 +64 164558+72000. 1000¢.1 
1 6-199 0 0 6 9 © 46 0 0 DO OCONVAIR 7PH-122 12/6) 
#428985 06¢15912045 44896574] +1 8N700-44 340000 45+ 484232422000, 10005.1 
#429985 66215012045 648965761 +180 700-4+340000 4549423222000. 1000062 
1 7-+199 0 7 0 6 0 060 0 0 O OCONVAIR Z2PH-122 12/61 
44664) 664151 310656501 75161 4617100-4-184100474+496847+22000. 16000.) 
4646641 46°151 310656501751 t +61 7100-4-184100+74496847+22000. 10000.) 
28 199 G6 @0 0 0 60 09 0 0 QO OCONVAIR 7PH-122 12/6) 
©205250 +5 %267570 54111480 +? -65670094=779100 7469914922000. 10N006: 
©205250 654767570 054111480 +7? -656700-4-779100%74699149+22000. 10000.) 
1 6 ¥ A199 9 0 0 9 A O O CCONVAIR 2PH-122 Lehi 
294283946024 JAIN 65 ¢AD361961 © 378N00-4-1599007+666595+22000. 1000.1 
#29628 V6 249830 65489361961 © 37A8I060-4-150900 +7 +666595+22000. 1000.1 
1 7 2 A&A -1 S89 06 86 0 0 A O D0 DCONVATR 7PH-122 12/6) 
232919464741 97N ES eO1LG21S 61 #277400 94-31 4600474654379+270004 1000.1 
62329196 2GL9I7TIESHO1L 021661 6277400 6 =-316600 67 +654279422000. 10000.1 
1 A-199 0 0 0 & A 0 0 DO OO ACONVAIR 7PH-122 12/6) 
9371999 660149790 65% 536271 +1 306710- 3459020067 6484849422000. 10000.) 
#371999 4K 4 149790 °S+ 3IH27T1 ob + T0671 0~39599020N 6 7OGRG4R49420N0). 10009.) 


(blank card) 


0CHO 
0 «CHO 
cn2 
0-CN2 
0-C92 
C2 
0-C2 
0.C2 
C2H2 
0.C2He 
0-C2H2 
HO 
0.HO 
0.hO 
He 
0.H2 
0.H? 
H20 
020 
0.H20 


0.N 
OeN 

NC 
deNO 
0 eNO 


0,0 
0.° 


6.02 

0.02 
E- 
E~ 
E~ 
Ce 
Ce 
Ce 
Ne 
Ne 
Ne 
02- 
02- 
O2- 
CIe4 
COe 
coe 
NO*¢ 
NO¢ 
NO* 
H+ 
Oe 
Oe 
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(3 blank cards) 


CMA NECK FOR CABLE ANALYSIS OF PHENOLIC CARBON HFATSHIELD 
TWO STATIONS. ONF INCH THICK PH. C&RRee PROPFRTIFS FROM NASA CR 7230) 


oe ee 


KIRTLAND SAMPLE PROBLFM NG. §& 


A 60.75 37 0% 4.48 E9320 3ehHA £4600. 
R 20.25 0. 1.40 F43.0 1.54 €41000. 
C 97.4 97.4 0. , O. 90000. 
is Ne 27. le le le 22 0-5 
le Pe eN2 “37625 fe 06. -23730 536. 
1530. Pan -1.788 
1530. oN} 
1540, 09? 
1530, Paired 
15930. oY 
1530. 03 
1S3V. 0A 
1530, ens 
1530, oS 
1539. 95 
1530. 010 
1530. «10 
1530, 015 
1530. 01S 
1530. 00 
1.0 Fei0 530. 
530. 0-710 20730~04 1.000 §4X4926 (VIRGINeH0 DEG LAYUP) 
R00, 0-360 2254004 1.900 MX4926 (VIRGIN®S60 DEG LAYUP) 
1166. 0.360 7 2940-04 1.000 MK“92H (VIRGINS60 DEG LAYUP) 
1500. 0.472 2 2940-04 1.000 MX4126 (VEIRGIN®60 DEG LAYUP) 
e000, 0.4R4 2 2940-04 1.000 MX492H (VIRGIN®60 SEG LAYUP) 
3000. 02493 7? 6940-04 1.090 MX4926 (VIRGIN®60 DEG LAYUP) 
anon, 12498 20940204 1,000 MX4926 (VIRGIN®60 DEG LAYUP) 
S000, 0.500 24940204 1.000 MX4926 (VIRGIN®60 DEG LAYUP) 
-) 6000, 8.500 2940-14 1.090 MX4526 (VIRGIN*®60 DEG LAYUP) 
S30, 0.2710 SeP Ww Nh 1,000 MX4926 (CHAR 60 DEG LAYUP) 
1000. 0.430 2090-04 1.000 MX4926 (CHAR 660 DEG LAYUP) 
1500. 1.472 3.03504 1.000 MX4926 (CHAR «60 DEG LAYUP) 
econ. 1 e4AG 3.9N6-046 1.000 MX49?6 (CHAR ¢60 DEG L.AYUP) 
3000. 12493 R2490-94 1.000 MX4926 (CHAR «60 DEG LAYUP) 
4000. 02498 142 300-04 1.000 Mx4926 (CHAR 2060 NEG LAYUP) 
5000. 0.500 20295004 1.000 MX4926 (CHAR «60 DEG LAYUP) 
+) 6000. 9.500 PA.100-04 1.900 MX4926 (CHAR «69 DEG LAYUP) 
1 900.0 1800.0 2700.0 3600.0 4500.0 5400.0 6300.0 
=1782.0 930.2 195.4 22A920 3600.0 4696.0 6152.0 
5001000150020002500 300N350040N045005000550060006500 7000 75008000850090069500 
205 = §00)000150020002500 3009 3500400045005000550060006500 7000 75008090AS50090009500 
ol) =§00190015N020002500 3099 3500400045005000550060006500 7000 75008000850090009500 
01S 5001000150020002500 3000 35004000450050005500600945500700075008000850090009500 
2 =§901000156020002500 3090 3500400N450050005500609065007900 75008N0085009000 9500 


~393- 
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025 5001000150020002500 30003500400N45005000550060006500 7000 75008000850090009500 
03 —$001000150920002600 300035004600045005000550060006500 7000 75008000850090009500 
035 500100015007000250030003500400045005000550060004500 70007500800085009000S500 
04 §003000150020002500 3000 3500400045005900550060006500 700075008000850090009500 
05 $00106015902000250030093500400045005000550060006500 7000 75008000850090009500 
(blank card) 


b. Output from CABLE Sample Problems 


Due to the very large quantity of output from the CABLE program, 
only a small portion is included here in the sample output. That por- . 
tion consists of the input summary for CMA and BLIMP, the edge expan- 
sion at time zero, the first mandatory BLIMP solution at time zero, 
the BLIMP stagnation solution and edge expansion for the second manda- 
tory time, the eight BLIMP solutions to be used for interpolation, the 
CMA output for the first seven seconds, and the second mandatory BLIMP 
solution (at 7.0 seconds). 
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4. CABLE LISTINGS AND FLOW CHARTS 
a. Program CABLE - COCA 
{1} Function 


Main Program. Calls DUMCOM, DM2COM, 
LOOK. 
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INPOUT, SETUF, 


CMA. BLIMP, 


wre 


& 


e 
4 
(2) Listing ie 
ATOLGG CC3ta cOoa 191 P 
906 2 rtsBeSsid &TC2g) : 
aan § C7" MONAT R C% STL ECO 29 630620078 C629) TTS(C20 61902), TCHEM 20019527), Choa 112 4 
acdc" 4 DVO 25, OQ eM AEC 21d oe IEMOL IMG, IMCL MG, Clon COS 
[bate aL) 27H COV, THEO AD, TRAIN 2), FAB cOoa 094 
ATnet 6 BTA Ao Pe THZC PE eS oTTIC3OI, THLE 30), MH1Z( 2), TAC 30) NELNG. 12 eS22CHCONE 199 4 
oro 7 47 Ve AMR KOMCITG) c0oa 196 
A709 LTP IONS AL CZ DAO 79), MOP OC TLD NSPECSFRO 72,15) ,W03),LEF(19) C008 = 7 : 
east ee 2 ToLhFS(191, PIE ASF LAF alam) c90s A 
ae CTO MONSEL COUPLE Ge PEL Ie AYDVILCLS3) sOINLO153, Be WALLG co0e 9 
2.0514 DeALL SO “De Mevdewl 7), TRPWALL COs 10 
0932 COM MMAATSO 1 17CL CZ eC 30 Ce ALPHl), RETA, 70 4514),2664,14),Z28P04,24, aCONe 14 
s7Gr13 1 39X70499, HE 01509) ,HG615, 3) eHSPC15,3, &),HALPH, HUF WHUE,HEW,OLX2 C900 12 
n-w1é 2.734040), ETANC4ED) coos 23 
051+ CAUMGHRAD TODS KC 20) KINO KOT, MATLE, MAT2I MATIN, YATOUeNETOLI,1S,"COO8 14 
Vt sé TL TTS TE te SPONSPM1.* AML NLEG,NNLEQGNRWL, ITS.KOPPA,CBAR,CASE(15) COOA 35 
G.9017 Pr tA), CE SPONSKIUCL IO TTEM NITEM, KRI7 NBT NGT2, PENT; KR9(40) COO’ 16 
Arends 3, aK, ITEM, ISPEC.MO( 3) cOoa 17 
370 dG C7 411C* JPME COMSTIN EC S02,PPECO%),PTET( 50).GE( 50),$(40),R9K0P(40) C900 18 
o7nrean 1, TOE VEAP SPI SCe LD ISCO ON) sS0E14) MSOC LOIS ITEC SO),TPRE,RAONO, COOA 19 
OrClel PC™*ERADFL(E 5), ROOR( 40), 2808040), IRAN Choa 20 
Ode? GAMMONJPREC 14 PRC 19), 7015), FH0045)9,8C(25) CAPCO15), 9025) M025) Copa 21 
9r0178 1 eCPRERI15) VIWC1S) PHIKCSS, 8) MRO, NRMOK( A),Z2K( 8),0ZKHC 8), “CONR 22 
r Bae 21 SKC MIZDPUAKC LIANTKE 22, °PHI CHC 9), OPRKC B)-NSCKE AD,DCAPCK( 4$)C0OA 23 
aeans SeTRTIEAC Ae sek BIAPEPAK(C AYSNCATK( AI,AMUL2K( A) -OZKK( B, &) 8 COOa 24 
avr «A a, NrvegEA( 4, 4), PMUGH CEI SH eSHT ICH oO VMUL20CTeCTRCPTIL MTEL cOoa 25 
0° .7 S, mid 9) Tt, DCAPCH, IPR4, DSCH,9Q2H,OFPSH,DCPTHeDMUL2H,VMU(15). RHOP COA 26 
eA ad £095), PHIKPO15), He YP,7KPC BD VMSP,VMIOP,HTILP, CRWO(14) 664A 15) cOne 27 
ole ar) CHE ON AV ARCAm JE 04535),603515),SP03,15, 9), ALPH COOA 28 
VOC SE COAOCR/MALCOMZEWC 4, 12,THO40, 2),4WCaC- 1)eSPWC A,40, 1) cCos 29 
‘ piel ore | 1," dU, DL) eFLUXIE 3,402 1), lua, STW, LFW, SPW, IRHOVW, TFLUKY cota 30 
V0CSEé CAMINJESTCOM/SIE HIP NEw 
ne OcOr SS Dita VOTNs4HVOIDs cooa 923 
: ocr $4 C2TA SEGI/6NSEGS = / cOna 024 
i 7004 ELTA SEGZ/6nMSEG2 / CCOA N25 
| 3000 Se U'ta SEGS/6HSEGS / Ch0a 026 
L Neen Ss? Lata SEG4/6HSFG4 / Choa 27 
acer 7234 OW SATCACT Le B15, 85K 2079) 
dra ss Coe. eeal Sl DEEINEN IN INPOLT,INPI'T,CRECT AND RERAY 
goer ae CALL SETIOC 161) 
Aor sey CALL SETICCS.2) 
WwOtl, CALL SETAC 3, 7GN000,50NN00, FT (19) 
crores athe 
ar0. 44 «OL Ted 
ATLAS READ CHIN, 7238) KO4,ITEMAIS NITEM YR 
JIA 4e wA( TA) BL 
anen4? KP Be 
WGCHe eV 7 8KR 197) 
Nerl4ag ¢ TE ROMCL YD Bo, TO MOTHENG 
ann ae t Ie *OM( 4.9) & t, Save 
Ocdubs C IF kori(d5) £ 2, RESTART -2 NO Save 
ooncte ¢ TE MCMCLG) & $y RESTART o- SAVE 
orgts3 TE CKOMCITV) 9D,9N,9§ 
Buns OF CALL SET C13, NOHO, SNNCON,ET¢(b)) 
OT INS CHLL SET™7C14,1N NING, SONNON,FT(15)) 
Goonte on oT. 85 
eosok7 yd ROTA 12 
‘J onents Shore as 
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> 
o 

9 7tare weattl 14 

o70Nnec #01865 Choa 033 

oracea HEAPS SS3SSII335 cana 032 

ocacae 5OS)8,16H1 6444 Coa 933 

O20Ke $ 04905129 COoa nye 

OLOLes 190978 G41 AH4 O46 cOOk N35 

Cc0NSS (OPS ,LSS3SSS33 COna 934 

Gvonee BJ) a OLS rsinra cOoa 037 

ordre? meade COSIBR ZEA Cora 338 

Cones rr 2 F, 

Ofdoew t™eds 

aco we CKCMC 2S) © 2) 162,109,100 

ocnusy c WESTART 

fer OrsZ 1UU nisi 

do3673 (? 107 Las81,? 

C7 LVR CLS 1h462) 7204 DONT TEMOITEMeMAD( 1SeLoIRWr2) 

OLenss TECLIM) 37721075999 

Ione 109 C7 ACA TsteLin 

Jen? 466 SFaNtNHT) HSTFQV 

oonc/s 107 “nfey4 

ITNEG y-waitd 

bohel uh ake LI* a (ised enNITEY © ITEM 

ernue. g0@ or 1wud toe 1eLte 

OnOCKZ CALL CU ACU CTR) 

oroces 4C3 GALL OM2COrCIRw) 

tebe elena | JECTHW) 164,106,347 a 

(shel Me) 194 nest 

Of Nunes 1fsd Choa N42 

ocne:7 1° 1680 choa N42 

ATOOrs w Reel coo. 43 

OCnEs Jer ast CCoa 144 

900090 410 [*91Se) cO0a A945 

300691 1F CTS@VS) 11551355105 - 

000,92 115 Crs TINUE 

aganeys Cc CALL LO&l¢S&G63) CO0a 047 

octeve CALL InPOuT COoa O48 

O70985 1Tk tad choa 149 

nracve 120 yar TEM. 22.0) Choa 950 

ororv) cr 1¢9 IMGSL MG cO0a 95% 

rebel rT aD LINCENRT (TMG) C00a 052 

O7T90"9 SA 429 PCereLEMe Choa 083 

970110 12H TlhEMCIMC, 14G, J) 8VOI0 COba 054 

orta.g & CALL LOA (S—G64) C008 055 

onni'2 C areal Ph 19 chine 054A 

Outs CALL SETUP cOoa 957 

ACSpud TORCUISTIMEC ITEM) CCOs 038 

asi tb Ooh) Tee (Js894,/CSMCIS) cOoa 059 

AIhG bE Trans) ehalS( 18) 

00117 TECTTES@1) 12451280135" cota 961 

ancyts 178 TRPRCLISTIMEC NITEM) cOoa 062 

WUlTs 930 COMTINUE 

00011: G CALL LOAC(SFG1L) cOoa 63 
A occiii CoLL Coa C04 164 

90117 G C’*LL LOALCSEG2) Chhs 045 

0301223 n° O91)830748 CO0a 964 

ouer1¢ Liver c00a 067 

eloleh ee) LF CUCMA=3) 140,157,160 C06 naa 

070114 140 TFCIGMA) 144,142,142 Choa 069 

onnga7 L444 wTlTeL ChAT) Ko4 co0a 870 

350304 tur COoa O71 . 
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te Ogee ys ste me wet the eo ba 


e ’ 
} 
ofo11g 142 ELUKUCLLIS tT), i 
ofoi20 FLUX ICE, 15,17) 2 <HPRMG 3 
ocoizs FLUXS(3, 35,17) seCHD CH i 
Of01Le? T CIS, 17 ataca3 cOna 078 
030123 KIC1L)23 j 
970124 CALL AT iP CO%a O76 a 
ALES 145 LE CLABSCHC 10409292) 14704400947 j 
GlOLea 146 Cable CuMconci02) j 
orate7 CALL MNPCOMC1N2) 4 
32042 147 [TEM & ITE Mey i) 
Oco1e9 TFC UCMA$4) 1105110,220 CO0a 078 : 
0c0130 156 Lyries copa ove 5 
Oro1ss KOS 11)84 CO0as 080 ' 
970452 160 [ts814 COos 081 r 
06153 ¢ REWIND 10 CO0a 082 J 
Ocnise VOMONCITE 2) oy COo4 143 
079135 Of 26N Keil [mM CO0a 084 
2750136 IFUTCHEAC ETS IMGowd-VOID) 209,370,209 coos ces 
020137 17U FLUXSCA IS. IT) 20, 
900156 FUUKUC Se TSe TT eeTMgeyMG) 
ornys9 TEC ICMAW4) 180,160,490 Coda nbB 
000149 1FC FLUXJCSsISe IT) SE MPCTLMCE IT, IMG, y)) 3 
950141 6% TO 209 C004 090 4 
ocny4s 190 FLUXUCS,ISsIT) 80, d 
Oc0143 Y CVSeLIOTTS(T1,IMG,0) cOoa 092 ’ 
* ocn14s4 20C CALL BLIMP C004 493 
070145 C2ue LOOKC2.TC1), TTI, THC,069,9 NGA,CTI,1) C004 O94 
Oct 44 ME ASHGASDELHG cde 095 
090347 Cau LOOKC4 + TCLDOTT2C152)6THZ(1,2) 1000, 0.NOMSCT2, 2) CO0a 096 
O.G14h HCHEhCHODWI2( 2) Choa 097 
900149 TFC UC", G7.4) TL*CCIT IMGs) OAL OG aMava(=W03),0,00003)) 
Oc0150 TOMEP(IT, IMGs) eC8(2)4WC3) ONT Pod BoWALLQ=W(25eNGA=W( 3) HCH 
. ornies TYSCITs IMGs d)8T(1) CO0a 099 
B01ke aoe Go” Te (216 422 6260.250,210.23%, 26, 28) 0 cOoa 1090 
NCO143 210 [VEM21TEmey COoa 164 
Ou01>¢ GO TC 270 cos 102 
CAT aS 270 tale COpa 103 
or oye GO 10 e490 COoa 104 ; 
Cruis? axe Hrefaes 4 COoa 108 
OrN1o8 240 pMGayMGes cO0a 106 
Crn15¢§ G7 TO 4AC CO0a 107 
Orbe 250 TMGerMGey COoa 108 
A20161 Tretia COoa 109 
Of d1ée GA TO QAag COoa 110 
ortyes Z26C [TERI TEMey COoa 133 
OcatAs 27L yadey COOs 112 
OC NYAS 2 CONTINUE COO 123 
OCOL66 Gr 7? a30 CODA 114 


OFCie? e'l 
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(3) Flow Chart 





0 ETORCIS. 990000. 800000.F TCR 
CALL SETORC1$- 1000000 .6..0000.FTC18)> 












REWIND 19 
B(L=.5 

BC 2@ 333333933 
BC3>=. 1886SECSS 
BC4D~. 185 
8(6>=.0¢ 1686886 
9(§ d= .33383333 
BCT >= .913088088 
B(O>= .0O9see2ss 
IRN = 0 

LIM =» { 







IF <KCMC10> - 2) 102. 100.100 





a a aati! 
Ramanan 
+ CEE 


-442- 
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LT Me<¢1S-IRWO2 >/2-1 SONI TEM+ I TER-MODC IS-1+IRW. 2) 


IFCLIM) 107.107. 108 


109 DO 108 I=1.LIM 


108 READCNBT> HSTERY 





107 WBT=195 : 


TRW=101 
LIM = CIS-1)eNITEM + ITEM 


CALL DUNCON<(IRND 


103 CALL DH®COK< IRWD 





IFCIRM) 104, 109.147 
104 NS=1 

TTat 
105 Iso 

MNE@—1 

SCHR 1 


| 110 TS*TS*1 = _] 


[ IF CIS-NS) 11°. 165.108 


LiS CONTINUE = 
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| 120 J-MOOCITEM. 294i 2 22020. 
_ ere 7 


LIMO=WHI‘ THe? 


129 TCHEMCINC. IQ. J>=VOID 





CALL LOAD (SEND 
REWIND 10 


eat 
CJ >=T IME (ITEM) 
TOHCJ)=-1. /COMCIS> 


TRADC J > =RADSCIS> 


an 


| £20 TPRCLO=TIMECNITEM> 











180 CONTINUE 
c CALi. LOROCSE61> 
CALL CHA 
C CALL LOROcsEa? > 
KR¢11)>=3+IR8 
Lite@ 


| IFCICHA-S> 100,150,180 
| 100 IFCSCHAD LOL. 191.192 : 
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alana 


192 FLUXSC1. IS. 1T> <0. 
FLUXJC2. 18, IT>=-BPRNG 
FLUXJ¢3. 3S. IT>=-CHO/CH 
TWCIS. IT>=TAC1 
KRC1L)=8 
CALL BLIMP 


145 IF CIRBSCKCMC10>3~-2)-1) 197. 196.187 


146 CALL DUMCOM<C1C2> 
CALL DM2COM(102> 


i” IVEM = ITEM+L 


| IFCJCHA-i> 110,120. 12¢ 





DO 280 K=1.LIK 


IF MCIT.IMG.J> VOIOD 209. 170.20 





170 FLUXJCL. Te. 1T) <0. 
FLUZS <2, 18. IT>s-TMBC IMG) 


= TP CIGHAR > £00, 180.180 
| 160 FLUXUCS, 19. IT>=-EXPCTLMCCTI, IMB. J)? 
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190 FLUXJ<3. 
THCIS. arise in6. J) 













200 CALL BLIMP 
CALL LOOKC2.T¢1>. TTL. THB.0.0.0.HGA.CTL.1> 


CALL LOOKCS§. Fours TT2¢1.2). TH2¢1.25.0.0.0. HCH. CT2. 1> 
HCHeHHCH+ 0H 12 ¢2 
uatTs Ae he Timed 11. TKO. J =ALOGCAMAX1 (-WC9).0.00001>) 


IMG. J >= (HC224WC3 2¢HIPOL .$+NALLO-WC2 2¢HOR-WC3 )SHCH 
TTSCIT. IMB. = TC 1) 










209 60 TO (210.220,260.250.210.2890,260.250>.K 





210 1 EM ITEH1 





89 TO 270 
220 Yiel2 
80 TO 240 


| 230 Tl=aI2+1 


240 IMG=-ING+1 





"270 Jed-J : 
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b. Subroutine DUMCOM (ICh) - BOlA 
(1) Function 


Contains ail BLIMP commons with their maximum lengths. This 
routine is to be loaded first on those machines requiring such a feature. Called 
by CABLE. 


ICK 


101 when restaring and reading dumped commons 


162 when dumping commons to tape. 


ba 
£ 





’ 





St0c1s 
ococi1s 
o70c17 
ehote lop) 
occo19 
o70c26 
ococes 
o°nc22 
dce023 
O20C<4 
oc00cs 
Secoceé 
AcGce- 
ococza 


Annese 
VUCEdS 


Ocoesc 
9ones. 
060032 
ocans3 
goacse 
090935 
30005¢ 
9C0037 
300038 
GCS039 
000046 
000C41 
000042 
oeco43 
OCOI¢6 
00045 
9COC46 
300047 
ocoo4e 
oc004¢ 
$to005c 
9c0051 
100052 
OCO"'S3 
000c54 
Ccocos 
OL0C56 
000957 
OC0058 


(2) Lasting 


C4o18 9%18 
S B2CUTINVE “UCOKCICK) e0ss 
CAPSCP SALISH s = ~ORC 729, “ORL 72), NSPEC FRC 71,259,603), LEF(IC) B0ys 

L,.€FS(10), PIEASE,LEFwt(30) O0ga 
COMO BV lH, BUMP, COMMA, EASE, [COMM WOOT, TEZ,1777, OVE. KIP, TBs 
CA*™ORSCOECIN, €9666,07,06-CO, CIC. CLE CL20C1 3014 -C1380Le 


4o726,017,C18,C19,C20,62%,C22,623,024,025,626,C27,C28,C29.C30,C31,CR0L8 
2326035 16341C35 6036 6C37sC3A1C3O1049,065 C424043,046,605,046,CO? CORBOLA 
3,°49,050,651,082,C53,C34,059,656,657,C59,6599,660,051,662.C63,CS4,08018 
SES TSE THT COR COP CIV CIL oC IZ LIS C78, OTE C76,CI7,CIRLCI9 COO CO1BOLA 


5,°82,C53,C84,C8S,C86,CE7,CAA O04 
C™MMC SCOECS*.7 CHIC A) CAC BYLCKEC Br, CROC Od, CHK 8),CKaC 6) 60¢a 
208K 70 BILCKAL 6),CKOC BY,CKIO’ 4),Cwar O),CK120 &)CKLSE AS O0¢e 


PaPRial BY CK15( BYeCKIOO AICTE OI,CK1OC B,CK19( BY.cK290 8) = BOE 
S.°K246 Y,CK22C AYCKKLC %, BI,CKK2C MR, BYKM(S), KCTS), XSPCS, @) acia 


4,7K030 A, 8) B0se 
CAPMUR/CAPCIM/WC ORB EMIS, STEF, ANU, BOUM,COUM, HTEF, WHAT, EMISC, EMISTROL A 
1 eHPS, aSUC3)+9SUC3) HPVG( 3), MCWAO( 3) EMI V(S) KS04Q), 18U 0014 
C°™YON/EDGCOM, PF(40, 1), PTE(40, 3), 8PE( 8,40, 1),0UE3,0040 
LUE (40) RHOE( 45), VMUE( 40), 7E(40) ,UEDSE, DUEDGE, D2UECG, V4WE, ME. COO gCia 
? ,CSIPC 49), IOSIP,TTVC.TVCC( 40) O01 


CeMMON/EPSCOM/EL CON, VAP, CLNIIM, SCT, PRT, RED, DVS, RHOVS, PL, PIM,CL, B04a 
1EPSA( 15), EPSs EL C25), OP1( 25.2), 90 11953) DEPS(253), DEPC, REF, RETR Oni 
CAPMORSEQPCOMs FAC 71,2)+RC 7452) R90 7452), REC 7952) REC 7462), 8048 
1 TUC 72,200FF( 72) 0F Fa, ECO 72), 4TACAC) ATBCZG eC ATCOIG) WAT(IO), 8044 


2 MATCACD, TRUS) TZ MCSD) MMLC 729M Ze TKCLO, TEOVNK 74), B0L8 
3 “NU 72,10}, 1 TEE, KAZ, mCw,NCV, eM, AT Oe TL),YYVO 72),V0( 71),66¢ 7298016 
4 ,7GC10, 7),EPOVRK, SIGHS, AASMOL e038 


C™MMUNSEGTCOMs/S1F pw IP, EEL EENL FLIG,COFs IRE» TER MA TITS. IN IL 117, B0L4 
2 VODE MME.” SMELT, TMAX, THIN. MELT, SUMN, SUML .WS,WSS,BX, 1SP2, 1SPG, BOia 
2 1SP,KKJ,SV4,SV8,SVC,SV0,SUMC,FEF,CMF,EP,RVeIFCUC WIG WIL, UCeHMG, BOLA 
3 CCPG,*TMIN, TYMAX,L2,L3, 18014) ,E8(10) EBL( 10) A(26,26) BBC16), B01 
‘ TPC 72), ALP010),FNUC10),GAMM(LE),GAME(19)+SLAM(10),0¥( 72),RVS, BOL8 
6 


CPL PED MHL FZT,SBL PEP TSe TEa LMM TEdLEC 7h) PNUBLIO). B0xa 

8C(10),B8UNK(10),87610),139C680),BE(1O),UZ0 4) Boia 
COMMON/ERRCOMSFLE( 43),6.E6130)-SPLE‘ 30, 8), Evac3a3),FLEM, CLES BO1s 
LsSPLEM( BYELMC14) EL4MOTFLM,IGEM, TSPLM( 6) /NELM, EL MMLOFL (43) BO1a 
2,°GL(30),0SPL (30, 6), FNLECLA), GNLE(LS), SPNLE(25, 8),ENL(153) BOga 
3,FNLEM,GNLE™,SPNLEM( 8), ENUM, TENLM, TGNLM, ISPRLM( 8) @0ia 
4, VENLMS INUMM SF ENC CLA) OGNL (15), RSPNL (15> 8) ORNLCLO) acia 
COMMONSET ACO sETA( 15) ,DETA(35) .0S90(44),0CU(94) 896146), 82(14) 6014 
1, R0153),€4)°43,18),A82(30.28) Boga 
COMMONSFLPCOM/TX1(2), TUE (2) TRHOE( 2), TTE( 2), TVMUE(2),7MAT(966,2) BOLE 
2, THF(15,2:, LEFT( 10,2), TPE( 2). 7RA0S( 2). TOS{P(2) .KQT(2) 80a 
CAMMORJELXCOM/DEL GW DEL w( 8),0ANL( 283) -DUNL(153, 8) WALLO B0ya 
LesALLUC 8). Ow, VuKe 9), TRWALL BoLa 


COMMON/HTSCOM/C1,C20C3, CO, ALPwO, BETA, ZM(4514),26(6,14),257( 4,14, apna 
1 yeX1040),HE(15,59+HC025,3),W8P (15,3, 8), WALPH, WUE, MHUE MEW, OLX2 BOsa 
2,534(40), BE TAM( 40) B14 

COMMONS INTCOM, KRCZO) KIN KOUT MATTIE MAT2E MATZ J, MATQ2UNETAL1, IS SB0G4 
1S,17,\TIME,NSP,NSP™1,NaM,*LEQ,NNLEG,N&NL, i7S,KAPPa.CBAR, CASE( 28) BO0sa 
2,9(A), MWE NON, KOC SO), ITEM, VETEM,KA47,NBT,NBT2, IOENT, KR9( 40) Boia 
3,“ aUX0,JTIME, JSPEC,MD(3) BOLA 

COMMCN/KIMCOM/MT FRE (90) ,EAK(CL0)¢EXK(107+PMU(10039),RMU(15,10), BOL4 
1 MKPTC 10) ,PKP( 10), PKR( 10) -RATCIN) RSIGCIO » MAC1O),LL620),PMR(10), BOLa 


2 PRML(10,10),€ESE( 10) BOLA 
COMMON/NOHCOM/AM(153,253)-O0VNL (953), TCD B0sa 
LVLAK*e 1 OLPH( OY,DLPK( 6, 9),0THe,OTKw( &),FLUXUBC 9) 8014 


44 5- 


30% 
002 


we 


An. tues tw Atri Ainls. amalaithe. mr emia 





050058 C7 OWNS DUTOOYM 1025) RES DELST, TRHENGY. THMOM, Ces GLOW, SMEAR, CE, SHAPE 3012 59 
9290¢¢ 1 .C™C GO), THELE*E 9) BOya 00 
ecducy CAMEAN PG COM /TISE( 50), PRE( 47) PTET( $9),GE% 503,$(40),R80K0P549) BOGe Of 
2°OC#2 LI ENOSE pVaaP NISC. ID1SC( 40) 5° S0(10),MSD(19),15F( $0), 1PRE,RAOND, BO0ia 62 
coda" 3 2C*8E ,RANEL( 551, RADR6C 40), IETS (4), 184d 80a 63 
ocnves Cor MON /PRPCOY sPR(18),7( 15) 2401159650725) -CAPC(15) ,QR(15),4045) 6044 44 
3ares Le THROM Lado VMm (TE) PMI 1S, AYsMAWOM,ORHOK( 8),Z7K( B)Y,DZKHC A), “BOla 65 
ocn906 2 S40 bd MEK, 6 )D,NIK( BY), PHI wml A), OPRK( 8Y,O0SCK A),DCAPCK( AYBOLa 66 
Of0767 S,AMTILAC F).COIK( A,NCPBKE BY -PCPT uC B),OMULQ2K( B),OZKK( B, &) B%qa 67 
OCOubm a,7hatMal a, 6), DPUGH OMS SHTILMOVMUL2.CT, CTR CPTIL TIL BNia 68 
2AN049 5ePU3 e074, OC OPCH, OPRAH, OSCH, NQ2H, OCPBRH,OCPTH,OMUL2H,Vh(15), RHOP B014 69 

rial shoe Ao 0615), PmIKOl15),6e, YP, 2KP( Wd, VEL 39, VMUGP,HTILP,CRwO(14),64R(15) B0ra «670 
32007; CAPMONSTTCOM/Ga™2 »PROUM,PRA,PAD,PRC,ORD, VMUA,VMUR,VMUC,VYUD,AC, B0La 74 
ococ72 2 ELNC663) Vw, BOqa 72 
270673 COMMON, TE YC OMsSPQUS( &) OER 49) 0449 (15), 5L0PE(15),REDUM(159) BCia 73 
920076 1,S0U"1(4C).S0U427(409,F wOUM( 40), X3CONC 40), FWCON( SO) EWINIT( 1) BO1s (94 
3C0C75 2, XT INETC 1),.0008¢ 40) BOqa 75 
950076 COMMON/ VARCIASE (4,15).603225),5P03,15, 9), ALP BOia 76 
950077 CAMMOMZMALCIM/E WC AO, L)eTWK40, 1),HwC ads £)-SPwl 8,40, 1) B0ta 77 
950678 L,8rtOVMC 40, LP FLUKIC 3,640, L),Ime, 1 TW, LFW, (SPW, [RwOVW, [FLIXY BOL, «78 
0720079 GIVIVALENCE (CFLPESV/ TKI), CBLOFQY, 404), (BUMEQV, BUMP), (COEEGV,CS), 

o7cord 1(4GNEGV,CK1), (CRHEQV,4CARB), (FOCEQV, PE)» (EQPEQV,R9), (EPSEGV-ELCON) 

05001 2, (KINECVL*T), CEQTEQV,SIP)  (CERREQV,FLE) (CETAEQV, ETA), (HISESV,C4L3, 

9rNNMe 3 CINTEGV,«IS), (NONEQV, AM), (PR~EQV, Time), (PREEQV,PR), (STTESV,GaAML), 

0r0043 4 (TEMEQV, SPNUM), (VAREQV,F), CWALE QV, FW), (FLXEQV, OELQW), (OUTEQV,Y) 

OoncHe OPMENSION BLOEQV( 1242), BUMFQV( 10),COEEQV( 84),CONEQV( 423) 

Ocoges 1 » CRBE QV 67),EDGEQV( 449), EPSEQV( 381),EQPEQV( 2352) ONEW 
ernote ? eEQTEQV. 1033), ERREQV( 1468), ETAEQV( 1463), FLPEGV( 1200) oNEW 
OTNOs? 3 sFLAEGV( 1406) eHISEQV 1272), INTEQV( 128),KINEQV( 421) @NED % 
Ocoohe 4 »NONEGV( 23663), QUTEQV( 42), PIMEQV( 537),PRPEQV( 408) @NEw 
070949 5 »STTEQVE 30), TEMEDV( «=338), VAREQV( 521),WALEQVE 606) eNEw 
oo00yo OraTa 7062) ,aTB(4 92 ATC(1)/44 4h i] / e6-8 
O50d¥4 1F CICK*402) 79,19540 

CCOG92 10 mEAD( 12 ) FLPEQV,BL9EGV, BUMEGV, COEEGV, CONEQV, CRAEOV, EPSEQV, 

090093 1 ENGEOV, EQPE9V, KINEQvV, EXTEGV, ERREQV, ETAEGV, 

gcage%e 2 FLXEGV, MISEQV, INTFQV, NONEQVe OUTEQV, PRMEQV, 

oroo¥s 3 PRPEGV, STTEQV, TEMEQGV, VaRESV, WALEQv 

orno%e Ge 79 70 

000097 4G wrtTE(32 ) FLPEQV,BLIEGV:BUMEQGV,COEEGV, CONEGV, CRAEGV,EPSEQV, 

OC0098 1 EOGEGV, EQPEQV, KINEQv, EQTEGV, ERREQV, ETAEQV, 

300099 rd FLXEQV, KISEQV, IN\TEQV, NONEGV, OUTEQV, PRMEQV, 

0c5100 3 PQPEQGV, STTEGV. TEMEQV, VaREQV, WALEGV 

0c0101 70 CONTINUE 

oco1iC2 5 ACT TURN COza 987 
otoyes esc COta 968 


-450- 
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c¢. Subroutine DM2COM((ICK) - C014 
(1) Function 
Contains all CMA commons with their maximum lengths. Called by 
CABLE. 


d 
ICK = 10i when restarting and reading dumped commons. 


= 102 when dumping commons to tape. 





radar eles | 
arent? 
oreocs 
OCNOLs 
anus 
Coos 
9.0007 
Aroeis 
are ote 
Were 
37m 91 
NC 1E 
9 nu13 
NOTE 
ALCbLs 
ene 
NCC017 
I°9015 
O.0U19 
leds] arte) 
AOL et 
NOSES 
o.aces 
0026 
ococes 
Nalin.) 
nrense?7 
VOC2h 
n-anes 
MIA SE 
C.0cs) 
OcdCS? 
orocss 
worse 
sccass 
ororse 
oars? 
OcorsA 
Orne 39 
orac4n 
Orns 
Digalen 3 
G'CGes 
Ten 44 
870045 
30046 
010047 
IC CO4F 
aco 49 


(2) Listine 


cente 


1U 


2U 
au 


coin 

S mHOUT EL IMSCOS CECK) co1A 

CAPM INCA COVSTL'C020,10,2) TG 29), TT§6 2001002). TCHEM(20,19,2)4 COLA 

LH OC GOI, MICS) KH iC 20) e JCMA, IMG, TMC, NMG, csia 
STITH 2) e Tree (2), TRANC 2), TAB ceqr 
SB,TV2C20 02 de THZ620,2)0 T7430), THE C30), 0H12(2), 7 A039) DELHG.11,12.CHCO1R 
APN WPRY Ae KOMC LG) coir 
el UIVALE CE C'CLESS s+ JCMA) cnya 

CH MUPALASCNM ARIST, TEX MENS VR, LHI 23), LOC 23), 128023) cha 

CAEN ACP STER(C 20,200 TOPC2G, 2),TKP(20, 2) cn13 

$4790 2). STLO38) NEL (39),890029), HC 38), RCO(38),Ra( 38), RECORN( 36), cA 
Sack alSor, FAC SH), RAVE38), coyR 
5900192), 20%(252),R0C(152), coya 
4 TREC SS) VEZ + CMe NPR, CNR 
FLOT, Poot Te NAM,NIMNG NL, PELY, RET, RHORARHORA, RHORC, TIA co18 


BOD THAGN, TRALC pQWOOA,FHOOR YHCOC OF ALER eFC eBAsABOHC PSI A,PSIS,PSIC,CN19 
VT2AC 4 PET, PETE ,PSV,ETA,DTPR3,MTPR2,OTPRT, TPR3, TPR2,THZRO, THE IN WT COLD 
COMSIN/C*ACON/EPSW, TRES, ceria 
11 aT, Gata, O4G, NO, FUFH, PUES, dF, gee, JEM, INPUT, NTHIN, BRP, HCONY, C018 
PL CH,DTHRANN, Te NOS sCHCRIDPYCTI, ICON, NR TX(30),F1630).F 2030) COLA 
CO™MON ZSRCP/RF CHAD CMMI DERR,  DMIV,EMITVeFREX,ERRC, ERR, ERRS. 13,14, COLA 
Ay 4,VRP, IPR, THA, JRA,IRC, TRO, {TL PHI, QQ» TABC, TEMP, TSMa,TS4I,7SS9 COIR 
CMMUNSSRCP/ TNXT, «NCPC S),CPE(3), 7620), VITER( 51), ESTER 91) coir 


COMMON/SHCES ¥2016)002(02690V3(89093(8) e102) 462) cnia 
CU'MIM/SACES CPC( SO), CRVE 509+CPC S0)HP ( SOHC SO)CNC SM), C018 
UATE SEYFOTL $0),ROC SCIX6 809,20" 50),DM0G( 5N),RR ( 50), coin 
20°'UE SCI,AC SOIC 500060 50),0¢ $0),EMOC 50),CNOl $0) coya 


GC SYMUNJSHGP/BR, CHZ, CMDL» NENTsOFDTT,DSOTA,OTH,GSMS,HW, CNL 
let, TTS, PRES, GCHEM, QCHEMT, SO 7VN, ICONDT, QCONVs GCONVT, GRA, GRP, coir 
2G8PT,RAD,SACT,RSU,SIG, TSAVl, /F,xP1, aSe cnya 

COMMONS ALSC/ BPRM, CMT, COI 0, CPL,CPGAS»CPNL,CZ,006 JT» DECOM, cia 
TNE COT, DELC®, DELR, ENOLE,DIT,ONS,DOPDTMRLCPORLC,ORLP-DRL»DROAC, COLA 
7N80aT, DROBC,ORNBT, DROCC -DROCT,DRONTO, "$07, DS! ,08,NSS,0TANTHC,DTHSCO1a 
3, 71S, DVA,IZ,EGOsEZeFACTL,FACT2,F A, FR, FCF UF OFK, FY, GSECR,GSM,GSMT, CO4A 
4G7 HL MAPHB mE AR,HGAS, RES, TE, IMIN, Le ISeISVe ITER, Jt Je KKKOKT,L» COIR 
SAP ANL De NLMeN NZ, 0+ PGPUSPGPLT, PALD, POW, GLOSS, GL OSST,RD,RO1,R007,S$A0918 
6, S0EGR, TaS, 78, TERM2» TERM2, TERS, THDS, THs THPRT, TN, TOPS. TOP?, TOPS,T,COL8 
TTT sVOLX1 co4A 

FOLTVALENCE (04. DML2029) 0092 AHG2(2) oC TSe TA) C0415 

DIMENSION CaMEQV(1478),LOOEGV( 73),CMAEQV(1125),SRCFGV(22357), 

1 “ITSEeav¢(101) 

FCUTVALE CE (CCAMERV,TLMC) > (LOMEQV,KOUT)» (CMAEQV, TEP), 
1 (SBCFEAV SBF )s(¥ISE9V,8PR) 

ye C1CK - 102) 4€,139,20 

weaD (€ 212°) CAYEQV, LOOEQGV, C¥AFQGV, SRCEQV, MISEQV 

ae TO 40 

aQVlTEC 12.) CAMRUV, LOOEQV, CHAFQV, SACEQGV, MISEQV 

Qe TURN 

esp cOiR 


~452- 


00% 
00? 
nos 
04 
N05 
N06 
097 
00a 
ang 
qin 
41 
nite 
ras 
ny 
915 
016 
417 
nia 
N19 
020 
nes 
022 
023 
N24 
nes 
N26 
27 
028 
029 
a3o 
031 
132 
633 
034 
935 
36 
037 
O3A 
039 


nei 
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da. Subroutine BLIMP - CO2A 


ee eee eS ee 


(1) Function 


Similar to BLIMP main program. Called by CABLE. Calls ITERAT, 
OUTPUT. 


O.ogus 
sronn? 
acnons 
ba iemed alo | 
Osoers 
aroners 
0007 
Ocoar 4 
AIAN’ Gg 
ALAE LI 
O7Ol 1a 
Oruti2 
iatheb & | 
O7"O14 
9P0gis 
iaeteb Ys 
Nrter17? 
ocorie 
ornoi9 
ororeo 
Or0rE1 
N0022 
OL.00e3 
Oo00e4 
errs 
ATP CHO 
NUNIT 
OONC Ae 
Orne. 
2 aoe 2) 
ordr sy 
DONG SZ 
O7NNA 
Ocoos4 
OVO Ss 
0°09 %5 
ococs7 
bo Peller) 
OL0r 8g 
orn44 
Neor4y 
OC0C4¢ 
ococ4s 
aceo+a 
ocoe4s 
orncdas 
finnra? 
On0o4: 
acnr4g 
ortjyoc 
nocd, 
OLNSSe 
orooos 
OrOune 
ocochs 
och yse 
Ornes7 


(2) 
CC9°8 


Listing 


C928 

SWRUUTIOE AL PMP CO2A 

UVMERSTO. bISTLCONS) HISTICAD7) HISTS(SiL)  VMATC S66) WIST4(600) COD~a 

CTAMGNSELCIMZ DRC 740, “ORC FL) NSPECOFUC 72,19) ,W(3) LER CLIO) COZe 

LIER SCI), HIE ASE LEP ACiC) C024 
COeMONSEPSUGMs PE(40, 1),PTE(40, 1), SPE¢ 6,40, 1),0UES,CO2a 

106 (40) ROE CAC), VME (40), TEC 4M) EDGE, QUEDGF D2UENG, VMWE, HE, COO CO2a 
2 ,CSIPC4NINSIP, TIVE, TVCC (403 C028 
SOUMOR ZELPCOM/TRE (29, TUF (2) sTRHME (2), TTEC 2) > TVMUE( 296 TMAT(566,2) C924 

2 THE C1907) LEFTOCAL9,2), TPEC 2). 7KANS( 2), TOSIPC 2), KQT( 2) CO2a 
CeetONs ATSCO/CL CReC3,C4, ALPHO RETA, 2M 4514) 426(4,14),28P (4,14, ACOZa 

1 1eX1040),HE(15,5),H6 015.3) ,nSP(15,3, 8) ,HaLPH,MUE WHUE MEW, OLN2 CIZA 
rie bee eh rae Le C02a 


TIE TNTU IMS KREZ0) KIN MOUT MATL y “AT2E MATa ds “aTQUsNETArT.IS,§ COM 
AS, TT, TT £,uSP»NSPMS NAM NLEQ,NNLEG.NANL, ITS,KAPPQ,CBAR,CASE(L5) COZa 
Za Cw), MWE SNON,KIC4O), ITEM, NITEM, KAL7,NBT,NAT2, PENT, KRO( 40) C024 


SAVAUXCLITIME, SPEC MDE3? 


C028 


COAUORSPRACOM/TIME( SUD sPRECAN) PTET( 50s.GE( 50),8640),RK4P(40) CO2— 


Ly WNOSE VK APONDISC,INISCEAM) NSDE19).48D610),1 TEC 80), fPRE,RADNO, 
2C7NF FAOFL ( $0),RO0R(40),RA0S(49), 1Rap 

CIMAGA/VARCUM/E (6,125),663,18),5P63.15, 93s LPH 

COMMONS WALCOMIZEWO40. T)eTHO4D, 1),WWC GOs 1)0$PWC R40, 3) 
LyTMWE C4, L)SFLUXSE 3,49, L), Tum I TW, [Ewe LSPH, PRMOVW, JFLUXY 
FOULVALEMCECHISTI NE CWIST2, PEI, CHISTS,F)o(VMAT, CL), (HISTO,FW) 


CO2a 
C024 
02a 
02a 
cO2a 
C028 


3 BOW SATCA1LU1 7X4 TIMEEL2, 5,354 SECONDS = = © STREAMWISE DIMENSIONES 2C024 


160) 


140 


143 


113 


a3 


41 
au 


LeSetth FEFT © = = 3hb) 

GAL VAtEC 9,44) 

CALL TONG 2 Ben) 

ASITECKROUTIN) TIMECTTEM) SC 1S9.M9 
JEMOL CI TEM, 2)e4 

YY 142 tere Ta 

wF CT, S)aTHP¢ 1, J) 

MYECTSIEIKT CS 

RAGS( IS) 8 THADS(Y) 
STPCUR Ss TOSTR( 8) 

UT (tad sTURCS) 

WOE CIS) a TAHOE (UY) 

TO(CISIBITFi UD 

WUE CTS YET VMUF (CU) 

erClsdskar(y) 

u™ 147 1945566 

VUhATCL eTMAT( td) 
WTECTS»L)aPTETC ITE) 
b"(Paed)sTPECy) 
MUIDECCECITEM GOL LIIZCGCL ANETTA DMO 2029) 
C7 tis Bst,NeTa 
G¢detsGC3, 0. epumt 
R¢2etI86C2. FP eUUML 

GOLA TISGC Lo LIoDUMT CEC Set 966404)) 
[sac 

aUL7IEKKYL7 

C4Lu TTERAT 

Gaby OUTPUT 

TEC.OM) 63,49,42 


STOP 555 
KETOGK 
Rr 


~454- 


co2a 
CN2a 
cO2a 
cO2a 


COga 
COZa 
COA 
cO2A 


c0ea 
cO2a 
CO2a 
C024 
C924 
C024 
co2a 
C024 
cO2a 
c02a 
CO24 
CO2a 
c02a 


C328 
CISA 


deb 4 

N02 
NOSONEW 
4eNEw 
S ONE 
AONE 
PONE® 
AONE 
QeNE w 
LOONED 
LL ONEW 
L20eNEw 
13eNEV 
14eNEW 
15@NEW 
160NEW 
L7ONEW 
LAONEW 
LOONED 
200NEW 
ZL °NEW 
22°NEW 
23eNEV 
NOKRe-24 

nay 


27 
02a 
029 
930 


n31 
n32 
933 


“rye 


O350NEW 
N3been4 
"$7 
c3a 
39 
"40 
nat 
r4e 
C43 
44 
O45 
a6 
047 


049 
nga 


000059 
oco040 
000061 
000062 
000063 
900064 
0c006s 
060006 
000067 
0c0048 
000069 
000070 
ocoo71 
000072 
o0co073 
onou74 
000075 
000076 
000077 
oo007a 
000079 
00008c 
000083 
000082 
000083 
000084 
090085 
000086 
000087 
000086 
000089 
000090 
900094 
000092 
000093 
a00096 
000095 
0N0096 
000097 
oco09s 
0C0099 
00100 
000101 
000102 
000103 
oco106 
000305 
ooc1l.6 
000107 
000106 
000109 
000110 
0601421 
oofyi2 
000413 
Oot116 
oco115 
000116 
000117 
000116 


104 

154 
1572 
£570 
1571 
1576 
1575 
1573 
1577 
1574 


156 


153 


157 
455 


QOAGA 


ind 
1051 
1082 
106 
203 


2n4 
202 


107 


1262 


K2178KR017) cO3a 
IFCIS*ITEM*-2) 105,105,1572 

rE(KRC37) 1870,1577-1870 

TE(KR(OI-1) 1571,1571,1576 

1€(1S-1) 1577,1577,1876 


Of 18735 x23,NSP COSA 
TE CLEFCK)=-2) $573,2975,2573 COSA 
LOF(K)s2 Coss 
CONTINUE CO3a 
LFCNTTEM=4) 1574,20702576 cO3a 
WOLTECNBT MISTI HIST2 MISTS HIST4,W LEF RADE,KQ(10) 

IF CITEM=1) 157,156,157 cO3a 
INutsNBT COya 
NaTshat2 co3a 
NAT28IDUM co3a 


O00 153 lei NITEM 

BacKSPACE NBT? 

GO 70 155 CO3a 
1F(%S"1) 105,105,155 
READ(NBT2)HISTL HIST2, WISTS HIST4, WeLEF»RADS,KG( 20) 

cn TO 10? cosa 
INITIAL GUESSES FOR PRINCIPAL DEPENDENT VARIABLES, CALCULATE(KR(2)COSa 
af), INPUTCKR(2)81). OR UBE VALUES FROM FROM PREVIOUS CaSECKR(2) CO3a 
a2), NOTE,.LATTER REQUIRES SAME ETA VALUES AND SAME SPECIES, 178 COSA 
UTILITY IS FOR REPEATED SIMILARITY SOLUTIONS, ST OBVIOUSLY CANNOTCOSA 
BF USED FOR FIMST CASE, cosa 
CabLL FIRSTG CO3a 
TECTIMECL)) 1051,1052,1052 

1TABOABS(TIMECTYEM)) 

WEITECKOUT,4) [TAB, MO 

61 TO 106 

WRITEC (OUT, 2) TIMEC ITEM), MD 

1E(KR(7))204,704,203 

1F(KR(12),NE,2) CALL STATEN 

ce TO 202 

1E(KR(012),NE,2) CALL INPUT(PYET(S)) 

CALL REFCON 

TE (KGC9),NE.O) CALL PRANCR(S) 

KR(42)81 cosa 
1Ss4 COSA 
OA 42462 Iei,NSP 

TECTS,EG.2.4N0,LEF(1),€0.2) LEF CI) et 

LEFTCL Jp ehEF (LE) co3a 


Ca-n--COMPUTE HISTORIC INFORMATION 


1055 


1054 
126 
1241 


CaLL MISTXI 

IFC TIMEC1)) 1053,1054,12054 

ITABSABS( TIMECITEM)) 

WIITECKOUT.S) TTAB, $(18). MD 

6% YO 126 

WIETECKOUT. SITIMECITEM) $C 1S), Mn 

0% 9261 J[elsNETA 

THE (Led) aHFCT,S) Cosa 
Trl (J) exXI¢1S) COSA 
TRADS( J? eRADS( 1S) 

TASTPCJ)BOSIPCIS) 


TIECJ)SUECTS) cosa 

TOHOE (J) SRHOE (IS) COSA 

TYECVISTEC TS) CO3a 

KATCU)2K9010) 

TVMUF Cd e@VMUE CIS) cO3a 
-455- 


045 


046 
ee 
050 
952 
052 


034 
055 
056 
057 


neo 


065 
066 
06? 
068 
069 
nvo 
o7s 


@NEW 
O76G ord 
077 


080 


08s 
Hae 


ner 
086 
089 


090 


~ 


+ Merean Lewy 


000119 
000120 
900423 
000122 
000123 
000126 
000125 
000126 
000127 


in4 


158 
159 


09 164 121,566 
THAT(C Le VyeVMarit) 
TPE( J) 9PE(1S,1) 

M4E90 

START OF ITERATION LONP 
17500 

K2047)8KRG7 

RE TURK 

END 


-456- 


BO3a 
cosa 
cO3a 
cO3a 
co3a 
cOSa 
cO3a 
COSa 
cO3a 


O91 ONEW 
O92Zee~4 
093 
004 
ces 
596 
097 
096 
099 
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Flow Chart 





(3) 







cco 





* upROuT ve te 


BRETECRDUI $9, TIMECITEND 8(18).MD 
ie J Ee ‘ : 







(1,6 )=THF(T.J) 





ee 





1¢CI$p=TXI¢J> 
¢1S)=TRAD 











C18. LP TETCITEM> : 
PECTS, L#TPECJ> 
DUM I= ¢@EC I TEM)—O( 1. 1>>/<8 C1. NETAD-8C1. 3)? 


wL.NETR 





DO 113 





113 GCL. 1>s@C1. 1>+4DUM10¢6(1. 12-8C1. 19) 










ITS=0 
KRCL7*KRLP 











48 CALL ITERAT 
CALL OUTPUT 


1 al ae anit detibbie 
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e. Subroutine CMA - B31A 


(1) Function 


This is the charring material ablation program of reference 2. 
It is the controlling program for CABLE, calling for BLIMP solutions when neces- 
sary. Called by CABLE. Calls LCOUNT, LOOK, OGLE, SLOPQ, SBCPKG. 


ne ee 


ee 


a aay 


OT007) 
accor? 
1500: 3 
acnnues 
ecunts 
C'On' 6 
ANU? 
WO0cue 
00S 
yea en yes 
2.90211 
OMe 
SOO LyY 
OTOCL4 
Ol0uis 
orncl1e 
320C17 
920045 
OLNO19 
ye ver 2] 
9c092: 
ocnce? 
970923 
scoces 
10325 
VON26 
270007 
anger 
Cute 
Ie Ae SS 
imal 5 | 
OVNI 
oT0 533 
aoronse 
O70C45 
OC0C 56 
900037 
oonesa 
ococs¢ 
OUNL 40 
Oo m4 
Nl? 
ooarsys 
orar4a 
S"904>9 
O°O544 
orore*? 
OT0L4>5 
dL0049 
O7C290 
AT6781 
ocn se 
Ocul 3 
aceosé 
ecacts 
OMS 6 
OT0GD57 
Joneot 


(2) Listing 


Cuspa Adia 
S SROLTT-F CHa o3ia 

¢ TWO SAVING RQUNDIKY INTERNSL PONDUCTION PACKAGE BSta 
c BERCTHEAm CORPORATION Re RENMALL OC MOYER B3148 
CAMHIN/ CaCO STLYC (20,1002) 0 TGC 29), VT§S( 26,1002) 6 TCHE“(26,15,2). B3i4 

LLOC 2S) SHE C20) MMLC 27) ICMAT ACL IMCNMG, Bia 
ctem( 2), TRY 27), TRANC2), 148 asia 
SeTT2C 2062) 6 THZ( 20220 eT TIC39) , THCC 30), NM1202),-TAC39) OELMG, $1,12.,CwB3ia 
4,00, BPRIGKC*(10) 6314 
EMWIVEALESCE ("CL 488, 90S) Bdoa 
COPRORSLOOCAN ROUT, LEX DE VR, SHEC23),1L0623),1%023) B3ia 
cam.Ohs* aCObsTER(29,2)¢ TCPC IO, 7), 7KP(20, 2) adie 

3,2 HOGS APT LO BAS SLE 39), SOCQ]M) (38), ACC 3B), Ral 3A, RECIPD( 36). Asya 

4g9b aC 3H), 2400386), RaV( 38), B34 
527a(152)-779) 252),R066152), B5ia 

6 TEICSOF MEZA CMH NPR, B344 

ILOT NPS TL) BM eNUMNGNL, PELM,RET,RHORA,RWORE,RWORC, TI. 8324 


NCA, TRACK, TRACE, RK” Ob, RWOOB, WHI0C EA, ER-EC G4. 8B, AC. PSIA.PSIB,PSIC.O314 


IT UAC* PLY, PETE RSY -CTA,DIER3S ATARI, OYORT, TPRS,TPR2,THPRO, THF IN. WT BSta 
CO™MON/ C4ACOM/EPS' , TRES, 6514 
aTWT GAA, OMG NC LF UF? FIED) IF UFKO, IFW, INPUT, OTHIN- ERP, WCONV, B344 


Ps CHsCTHR NNT, SOL sCACRI PYCRI ,NCOK, NQ6T40309,51030),F2(30) 83¢a 
COMMON SuCP/BF CMa, CMMs ,DERR, DAU, EMIVeERFX,ENRC, ERR, FARS; 33,14, O344 
1veM, VRP, IPP, 1RA, IRB, IRC, IAD, 1°7L, 701,00, TASC. TEMP, TEMA, TSI, TSS? 8314 


COPMCH/SHCP/ TNYT,  ONCPCSI,CPECS), 70(20) VITER( S21) EIYERCS!) e314 
CW UALS ICES Y2656)202616).V3(0) 9308, V962),0162) Bia 
COME SACPL CPCK SO)eCPV( SCICHK SODOHP § SODeRn, S%V,CNE SOY, Bdre 
121 € 5G), ROTC $0),ROC 50) .x€ 50%,208¢ $0),DM0G( 50),RR ¢( 50), B34a 
2c Ce SL) al 50),40 $09,C¢ 50),0¢ 50),FMO( $0),CNOC $0? 3; 


8 ae 
Co“4ON/SHCP/BR, GHZ, COL, DENT,DEDTY,OSDTB, OTH, GSMS,Wh, P34 


LHe, ITS, FRES,QCHEM, OCHEMT .ACNNS  QCONDT» QCONVs CONVT, ARA, GAP, B3ia 
Pi2PT,RAD,RAOT,RSUASIG, SAVE, VF,XP$, 25U B344 
COMMONS MISC BPRN,CMT,COLD,<P4,CPGASeCPNL -C2,DCDT, DECOM, Q314 


TNF COMT, DELL? CELA, DENOLD,OJOT,ONS, OP OT. ORLCP,ORLC,ORLP, ORL, ORCAC, B344 
ZUROAT DRG-C + ORGRT OROCC DROCT ,ORONTO, OSOT DSI DS, 0$8,0TA,9TNC,OTHSB334 
3,°TSCVALOZEGOLEZ FACT FACTS,FA,FO,FCOFUF OPK» FZ, GSEGR,GSM,GSMT, B3is 
467 HL HAPHH HAAR, HGAS,HRES, TELIMING Le IS 2 ISVeLTER Lede KKKoOMTLL, BILE 
SUCR AN] UL MeNy NZ. 0,PGPU,PGPUT,PAL4, POW, GLOSS, GLOSST,RD,RO1, R007, $4831. 
4, SUEGR, TaS, TB, TENS, TERM2, TERMS, THOS, TH, THPRT, TN, TOP1, TOP2,T0P3,7,0518 


7TY,VOLeX4 B3a4 
EUIVALE SCE COHL,OML2022)0(9N9,9412625 9007S, TA) BSia 
B42 CoWMAT(/33NL4He Me QUTPUTer->) B310 


Sad GMAT S7OX1E(2He FLL. 4, 9H SECONDS 14¢2H -)) 


544 STW 4AT( AK, GMTIME, AK “HSURF . 2X, 4mPROR, 2K, 7MSURE ACE, SX +GHM SALL, 8344 
14¥,6HH ENGE 6X, 1SHHE “TES AK, OHCM/CHO/OX ARSTEP, 2X, 4HITET, 2%, 4nG3Lb 
Z2APTN, Ox OWRAL (IND SMa. PIERS AX, BWC BTU/LB) 2 3K,144(L8/5G FY-SECASLA 
3)) B3ia 

545 FARNATC ONS 14, 216 F L064 oF La 2eF 19.2 0b 19.4, KGS, S/W! B31a 

546 FARMAT(S3¥, 20H eABLATION RASESo=-) B3ia 


R47 BAR TAT( Os, 7AR PRIME, 3X, 9WR PRIME Sel og ™ DOT CHAR, 3¥,9H" OCT GaSB34A 


LA be CHAR, 7X, 5HM GAS/SAN L4N(L 5759 EXeoe Cre 1X, 1SH(LB/0R1G SO a 
e)) A514 
SAB FARMETCAXF AR, Se 2K aPR 5 AC SK FINOU/IH ) BSia 
Sahl FIWMATC O77» 32H---RECESSTONS/RECESSION RATES---/ B3ia 
L33K,19HC TS) , CIN/SEC)/ ASA 
2 16X,7HSURE ACE 26K OHCHAR CFF 4,2,1H), LIN, LZHPYROL YSIS (,F4.2,1m))A3Ga 
S41 EARMATC BX, SAK SFLN Te LMA FO. TIS ) sie 


544g FIRMA C27, S4q---SUREACE FRERGY FLUX TERMS---/254,37HCURRENT PATESASLA 


-44£0- 


691 
"32 
43 
904 
a3 

3.4 
997 
938 
039 
419 
Ott 
412 
413 
nia 
“15 
V6 
O17 
O18 
19 
020 
021 
"22 
923 
124 
028 
rd) 
927 
dea 
N29 
39 
N34 
032 
933 
N34 
035 
036 
037 
OSA 
639 
040 
nay 
042 


045 
046 
947 
048 
nag 
O50 
051 
052 
953 
054 
055 
"55 
05 
ASA 
Ab9 


Anan 
Vevue 


ococelt 
Ocoreés 
o20Cee 
3coses 
257564 
ocay*> 
2270Ch6 
2C0Co7 
ococéa 
acaces 
acec7T 
320572 
cokers hed 2P 
320673 
37274 
SSCL 28 
370276 
370077 
ToOC78 
320579 
3r76C# 2 
W70Sts 
ened etel ard 
3c0Ohs 
129C44 
g7ecrs 
arr ea 
DlCoK? 
Uobdeo 
ohh folak 7 
aoecse 
OcOG#4 
30092 


Renagrt 
value 


Ocncya 
one 595 
sclo%S 
d00097 
OCOCYE 
ICCC YS 
ocnyes 
geosey 
Ccoite 
d701G5 
OCO1. 4 
oeo1cs 
3003° 6 
ehel tba 

W901 e@ 
Oyoicsy 
goes 
00011) 
Oouiiz 
eceris 
ocd 
oo00115 
O10, 36 
oces37 
OCOLLs> 


c 
id 


© 


NAD 


1 CETL 82 FT SURE OCE“SECIs/241,38ubND JAXTEGRATED VaLUES (OTL s0RIG S9BSaa 

2 6197 e313 

3 TSK, LOMCONVECTED 40,10" San[aTED .4x,10M RADTATED .46¥.10m Cueasis 
4ATCAL oe SR, LIMCOMDUCTISN/1 7K, 261% ,12, 21, 11K, SHOUT OF LOMCENVERATIBSLa 

SC° ,7K, 44av av) O31 
SQF3S COAMET 165, 4 aTE SK, SLELN, 3,ON ON SuT OVAL 2K.SCELO.S-aKdsim ) 6314 
Sand FOMMATOIS 1, 27aece[ NTERIOR ENERGY TERNS <---/25X.37HCURMENT QATES (H7BS14 
1/783 FY Si P&acE-$ECI/26N, 3SOMANC INTEGRATED VALUES (BTUsORIC $2 Pyysaie 

2s O18 

3 13X,9mPYRI, CAS, 7K OMOEC HMM OK, LONCONVECTION, Ox. 7MSTOMAGE, 8314 

472 THLOSS AV/L4EN, THPICK UP, OK,1NARSOMPTION, SX, Aiwwi Th SOLIDS,9K, OS14 
Sanfr SCUI7.6N,9+REAR FACE) arya 
“OMS FORMAT (6K, SKATE, SMSCELD STS, AM/OK SMYOTAL 2K, SCELD,Se4MI/IM ) «8=6—OSda 
Sal EOmMAT (OXBNNIDE MATS AMTEMPSKIUOEAS! TY INOWENTHALPYONBHNOCE “aT3xegSta 
LAP EMP SA IDES I PV SKAMENTHALPY ES IHC SEG REZ (LB/CU FT)OM CATU/LS)BSG4 
ZLINTHCTEG RILie (LECH FTO (STU/LB8)) 6516 


549C FRAT 6a, O4dOOF MAT, 3X, 4HTEM®, 3X, 7HDENSITY, 2X, 9MCOND( BTUs, 2x, OmNNBS LA 
INE 4AT, 3K, 44TEMP, 3X, MOENSITY, 20, OMCOND(STU/S/15X,7M(DEG AYs14hM (LARILA 
2/7u ET),9m FY SC F).21M, 7H(OES Q),1im (LE/CU FT),9n FY $C FD) 83514 

SSC EARMAT (5XZ14,F8,20F 10,3, 2KFO,2,1K214,F 9. 20F10-36610.2) O344 
S52 FOWMAT( SK, 216 ,F9, AFIT S 2K oR ALM 2140S. 2-F10.3,F10.6) er4a 
551 FARMATCAMLISXS6SHAEROTHERM CoHAPhING “ATER AL TrERMa, RESPO'SE AND aB324 
LHL aT 10% PLOGAAM/TIN4MPAGEIS/Im& 67K206) e348 


652 FERA4,T( 9K, 67~OPTI ONAL OUTPUT OF TwERNNCOUPLE TEMPERATURES ANO/OR 1B35$4 
ASTTHERN JEPTHS/24X.3FXDEPTHS MEQSURED FROM ORIGINAL SUPE 6/24X, B314 
Z231WTEMPEKATURES 1\ DEGREES RANKINC//6x,77MEACH CUTPUT BLOCK SHOWS B314 
31g TIME {% SECONDS, THE CURRENT SURFACE TEMPERATURE, /6xX,20MTHE TEBS14 
44PEQATURES JF 412,44 THERMOCTUPLES, aND THE DEPTHS IN INCHES OF ,835%4 
S1ZsLJM TSOTSERMS//6X,74-THE FIRST BLOCK SHOWS & SAMPLE TIVE aNOD SUB3L4 
sarece TE-FEVATURE THe SOECTELEN Ex, PEHCEPTHS OF THE TWERMOCOUPLESB 314 
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0002<7 122 HRESHSIGOEPSWa( TACNUM. )@TRES )o(TA(NUMN 10 02¢TRESOS2) OH CONV B3ia 226 
070226 RATOCNUMNE D841, /(HRESORRINUMN O,AONONOTS 8344 225 
0029 ALOSSBCTACNLI=TACNBM) 9/60, S90 (9AT(NL Oa TONBM) DOROCNL ZAR NLD) A344 236 
NeOes0 GLOSST= ILCSSTeQLOSSODTH/APES (4 2 @ASU B3i4 2731 
990251 CYTSCM SRHO( 23 eNSFTeASU/AREAL Le DTH 8344 232 
690732 HEL ENUM} TP ECNONUMND SHRES B3ia 233 
000233 WIC MNS L ERRONUISN) B34 234 
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00267 3224 w?ETe (KOLT, 5663) 4aCOt.V,GRP,RAD, SCHEM, GCOND» QCONVT, ORPT,RADT, GCHEMBS2& 268 
OUud2er 17, 9CONOT 8344 269 
OPN EAS WATE (KIUT, 544) B31 270 
Orne we ITE (KONT.5S405)PGPU,DECOM, TB,DEDT, GLOSS,»PGPUT,NECOMT, TY,DEDTT,B314 27% 
320274 10,0SsT B344 272 
O70e/¢ TF (NCON) 3920,3020.3N21 B5ia 273 
CnoZg/3 3021 wP ITEC KOUT, 5499) 8314 274 
0ude74 uf TC 362? B314 278 
970275 3070 w#PITECKOUT, 549) BIA 276 
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ot04274 204 [ECR HOnB-RO9(4.) 92436293, 203 B3a4 430 
clo4e9 213 RP EROR() eRAORA B3ia 431 
AeO434 Praet,<PSIb 8334 432 
ocoasy [ELPO4)S231,2137, 2131 B34a 433 
oco432 24351 TIDATE(=ROe( (RDS OW Jo FROEXP(-EB/T4S)e0TH) as BSia 434 
0ro453 2¢4-6/P003) 70TH B3ia 435 
O708 54 GO TC 2133 B3ia 436 
400435 2432 DAOFT snD ea k XP ( -AeDTHeEXP( -FB/TaS) od, )/DTH B3ia 437 
900434 2433 RAC PBRO,0V)>(OROBT+OROBC ) LTH B3ia 438 
co0437 223 JECTSS -FRaCl) 205,275,206 O34a 439 
ocoasa 205 D8GST#E.4 B3Sia 440 
ocdésy 6% 70 2133 B3ia 44s 
Neo443 206 LEC AWORC-R0C{(") 1215-25. 208 B3ia 442 
Oc0443 219 RABROTIN) -RHORC B3ia 443 
900442 Prdey oPsic B314a 444 
900443 {F {PO0e) 2452%,6182,2151 B3ia 445 
070444 PISL OVOCTS( -RNF( (CRY MOPOW) a FEOEXP( ~EC/T AS) oOTH) o@ B3ia 446 
. oroe45 404 e/POK) UTR ASia 447 
osn44s4 6° To 25x B3ia 448 
0900447 2152 DPOCTENDes ExP¢ -ACeOTHsEXP( EC/TAS) 94, )/OTH B3ia 449 
oenaae 2353 BC(NIBRAC INI S1OROCTerROCC ) eDTH 8314 450 
90449 225 OMOG (Tel MOG 7 -TELC] eC (CROAT ORRIBT) oGAMACOMGODROCT) B3540 454 
9¢04535 227 OV Se( ROA )©ROBIN) (9G AMACORGaROE(V) B3i4a 452 
000451 IONE} VERON CT) ONS B34 453 
t 209452 TECN¢L) 2251.2253,2283 B3ia 454 
CoO4DS 2291 LECOSS-O.CPCTE)) 22353,2252. 2252 B344 455 
oonaod 2252 COECTESCELC TL eC (FLORTON) =D. SI/F UF Od -FLOATCL) 012, oRA(S) B3qa 456 
Orhess CPEC TE) SCPEC LE F-9EL CT) 78 ONS“DENOLD) OC NNS@DNCPC IE) )/FUFOL2, B314 457 
beter by.) , CPECTE sav axg(CPF (IE). Sa; B344 458 
CcN4an? ifetees B3ia 459 
ocnasa 2253 DENOLOSDNS Boia 460 
nn04as9 255 YaSsTabeovva B3ia 461 
Seoane 264 IMOG(T)sdUGC] D/P UF ORACL) B3ia 462 
OCO4e1 WONODIER IEC TSF SF BSAA 463 
ocnas2 TECLo2) 257,257,256 B3ia 464 
Ocn4ay 287 FIFA UES B34a 465 
060464 NTAROTA/IELCLOORL(2)/2,eRRO2) B3ia 466 
CCO4eS Ge TD 25e B3ia 467 
ON464 254 OTABTTASIELCT SEMEL CT od RRC TSAR C14!) B3ia 468 
onoes/ 252 CANTINVE B3ia 469 
Oo04Ab c ~"w SPECIFY NECESSARY NEw POST-DECOMPOSITIGN PROPERT SS B3ia 470 
ocnasg ga JFHP B3ta 474 
onne7ec SO No Fed, N B3ia 472 
000474 TE CAS CRIN TD -RHOLL22-.04) BL8t Ae B3ia 473 
000472 RL Matyryoes B3ia 474 
oco47$3 a¢0)243.9 B3Sya 475 
oo0474 67 TO BS BSia 476 
on0475 M2 TF CABS(C ATE TE ~ReNC2)22,01) 83, ad, 04 B3 ia 477 
Oco474 Ad ATLCT 82 Bsyqa 478 
oo04/? xc pyad, B%y4 479 
020474 co Cbyetgvect Bvi 6 ear 


~dh 7. 





onne?9 ar Ts as A3ia 4A1 
ooneng A@ “MeTLO P83 B314a 402 
oaneny ACL YSFETE PET RANE ZT) 8314 463 
020642 1© (47) ASO1,+#9°9,8591 B3ia 484 
OCdens M594 CALL LOOKC11, C01) 0 TKLFL E22 0,0,¥2,0209) B34 405 
snese CUCEIPYLCL VOCNCT OVE C2 I@CNCET) B3ia 406 
OUN4eS 69 Ts aS B3ia 407 
Ordane AOOG ChCEIBROTIOC UCT OCL DMC} I@CNCCT) BSia 408 
ocea:s AS ATCT IEMELCTIZ(C.CT@QRGT)) B3ia 489 
060446 69499,0 Bsa 491 
ocnang 29 422 Tete VL B314 492 
970490 122 Ge'egShenvOr(y) B3ia 403 
OcOe4y 6E4SaGS4 B3ia 494 
070492 GST sGSNTeGhsSeaSi/ARF ats eNTH B314 495 
Or0ev$s JEUTS(CPECLH@CULE I/OTH B3qa 496 
onneve DEOT SC CPE(2)-POLD NTH B3is 497 
O9N4N G 8314 498 
ALNev6 c CALCULATION Sh IMPLICIT TEMPERATURE COEFFICIENTS O314 499 
occas? c ANC INTEQNAL ENERGY RaTE TERMS B34 500 
1¢0494K C SAT’ HLOCK B3ya S01 
OC 0499 Woe, B31a $02 
os5uo S eGReL, 8344 503 
39090¢ GSEGRSO, B34a 504 
Of05t.2 Tan, 8314 505 
030905 Aat(1)82,eha7(1) O34 506 
oonsu6 CPNL BCPC LL? 83¢a $07 ° 
OyOdLS “Weeslet 8344 $04 
0209 64 "198d B3i4 509 
ncnsy) 5 30 TstMi,Num 8344 $10 
OOSUR tF ¢1) 15,315,124 B3ia 541 
OoedSts 14 GS48GSM-NMDG( 1) A344 512 
0c0$1J NNONTD8-™06( 1 /7C RRC} DELI) 8314 513 
000511 FacTisDT4/(DELCT eRRCT)) B3ia $14 3 
orosi2 FACT28GSN/(0EL( 1) eRR(1)) B3q4 515 
dU0513 ACT) soFacTiepve B3ya 516 
orosie O0VH81,0/( 0. Se(RATC LE IORATC 109) )omC0 1) RRC)? B3ia 547 
Ovuds1d TERMZBRON( 1 @CPCT) -OTHO(CPGASe( DRODTO-F ACT) B31 514 
0c0s14 1 “DSOTORD10CPS/NEL (1) B344 $19 
nens17 TEMM1 EF ACTIOOVE B314 $20 
90914 BCL sTERMZ-a() DOTERMY B3ta $21 
ONS19 Celdeclérmy B31 522 
orns2z0 DCT eTACt peTERM2e( HCAS ODRODTOeHRARe(RON( J) B3ya 523 
ACOSel 1 SROCTIISI THF ACT QONGAS@NEHTeROLeHL/CEL( 1) enTH 8314 524 
ocosz2 1d AwWsRCl( for) B34 525 
9c0878 x1 29F Teepe T SIRI 6314 526 
OCOS¢6 CPL SCPVC Tod exLoCPCt Lose". MoXd) B34 $27 
Oceses HY SHEC TOL ONOMC{ Jot sald Gong) B3544 528 
OfNde4 COLT OL eCPVE Les erate! poCPLitfegye( 1. CoKC fod)? B31 529 
APRGY? T BeKOL OuREReDh; shy oe” B3ia 530 
3c0S2e Ao aD OP EME OMPL Led TPES Gg Vom (Led) B3ga $31 
20053 reeR Le TOR OP AR B3ia $32 
90059 eo Ga Sa PBB Te Ph Tl eee GAS CPGAS.1) : B34 $33 
“26$351 SOS wd Fe omy B3za 534 
Oey ts Grae SGNe heey pharm g cys B3y4 $35 
neO Ss LORS VAS OE HEAR NG Fey R344 536 
mre 34 hors Pa Pein B34 $37 
ye Ne PH eee aS B3ia 538 
TIO sy weet ay Bd4a $39 ! 
nota shee She ZN OSga 540 


tices “yee be ee git ret ete BDF a: PrOMELi tedTe B314 541 





0c05359 COP CCL) oPLRAy 8344 542 
900549 OCTISOC TL) +Tac pos SOTERN3SO(FaCTIeHGaAGeDSPTeROL OMI /DEL( 1) ODTH 83a 543 
0n0541 TAsTHeTVeNSOTeRA(]) esia See 
0nes42 3C CONTINUE B3aa 845 
000543 a(1)30T47°EL (2) BSaa 546 
000544 TIsTTeTseiTHsAREa(1)e4SU 8314 547 
ocnb45 ¢ Ne THE LAST ABLATING NODE REQUERES DIFFERENT TREATMENT 8314 548 
ocos46 NPONTO seo DGCNLIZERR(™L DODELINL)) W314 549 
000547 SACTLEDTH/( NEL CNL DORRONL)) Bsia 550 
ocnh4é ACAL ) B-FacTi1 en yh B3Saa $51 
or0549 CVH81. 0/765. Se (RATONL ORATONBM) @ROCNL IZ IRONED) B34a 55? 
000550 CINL#-F ac” LeOVR R344 553 
000551 TERMZSROV (NLD WCPCNL = ( CPGASPDPOANTNS(DSOT/DEL(NL) Do B31a 554 
orass2 1 (FU (NL I@CPNL = -ROL0CPL) )eDTH A314 555 
0coss3s HOENL)STERAZ-CONL I OACNL) O344 $56 
900554 DONL I TACUL LO TER 2D THe (HG ASONRODTO“-HAARe(RONINL Do 6314 557 
000555 1 ROCALI/OTHODSOTO(RO (NL YOHCNL )©ROLOHLI/DELCNL)) 6314 358 
000556 G the FOR RACK UPS IF af.¥ B31a $59 
000557 aq 8 NL 8344 $60 
000555 IE CNUMN]=NAM) 69040540 A340 56% 
0c0559 40 9 50 TeNAM»NUMN B314 $62 
070560 keke 8314 563 
000561 FaCTieD Ti sJ(DEL CT) @RRIT)) O3144 564 
oc0se2 ac’) ® -FaCT1eDVB 6314 565 
onoso3 PVBEL O(N, S@CRATCTIORATC LOL ORCC TI/ARC I)? B34a $66 
ocobes CCK) seb ACTIODVB 8344 567 
‘Z 000545 3(K)BROCT)OCPC I D=CCK WACK) B31 $66 
0900566 SC MC) STACL ROC} ECr CT) B31a 569 
060547 ¢ uOa JF THE LaST VODE waS INSULATED we MUST REPAIR LaST RB AND C 83494 570 
ogoses 60 JFCHRES) F0,79,8C B34a 571 
orobe9 70 BCK) SHC K)eCCK) B34a $72 
0005793 Cima, 8314 573 
060571 Cc KOw BEFORE GAUSS RENUCTION RE“RITE LAST LINE OF MATRIX B314 574 
4 000572 RO CCKIENCK CCK OTRES 3344 $75 
000575 Usk O31 576 
000574 NN OL J82,K B34a 577 
900575 Lael 8344 S7A 
000576 OC LISNCLICCLI/B( LOL eD( Lod) B3i14a 579 
00577 90 BILISRILI“C(LI/ALCL OL ealLon) B3ya $80 
000576 BcLysBC1)7acy) 8344 541 
onns79 GetaO(dds, 8) 8344 542 
970059 PCPUBEGO-GSEGR B314 383 
ON0584 PLPUTSPGPIIT+PGPUeDTHs ARE a( dS eaSuU B314 $84 1 
00052 CECUMBGSEGR=S0EGR B3aa 585 H 
090583 COCO NT SOE COMT4DFE COMONTH/AREA( 4 ASU B3i4 386 : 
090564 c 8344 587 
oc0545 c SURFACE BOUNDARY CONDITION PaCkaGEe 8344 SAA 
00054e 761 CALL SBCPKG B3ia 589 
0905b/ c B34a $90 
OCOdHKA IF (UCMA=2) 7AN, 740,799 B314 594 
ocasry 7AU TFCICMNAD 148,3009,148 8344 592 
ocos9s 148 CONTINUE 6344 $93 
OCOSY1 C i B34a 594 
ONOSY¥2 Cc SHRINK (anid OROP) OF LAST ARLATING NOME B3ia 595 
0cos9s C B3ia 596 
000594 C DFLCVLISOFLONL)<OS (SEE INT DECOMP) B3ga $97 
00054 TEC CELONL )=DELM9149.149-150 B34 SOA 
D00D¥4 149 DFLPEDEL(LI@ROCAL ORR(NL) A314 599 
oros97 DUCHEDRLPOCPCNL) 8344 6090 


0u059a NLe ‘ued 8344 601 





000599 
ocdg4co 
ocaecy: 
o20a02 
OCcOeLs 
ocneue 
o00als 
0n0606 
00067 
ocnaua 
Nyoacy 
9c0e18 
orders 
oroéle2 
acne1s 
050614 
dc0e15 
970616 
000617 
0c0614 
3.0619 
acoe2s 
00621 
000622 
an0e23 
690624 
OC0625 
000626 
000627 
0006248 
000629 
0008350 
000651 
ocOese2 
ocfes3 
oOcoss¢ 
c00€ 35 
000656 
0n0637 
00CHS4 
000459 
00N64C 
n00644 
0n0642 
000643 
Co0e4a 
000645 
000646 
000647 
000648 


172 
173 


174 
178 


176 
177 


171 
179 


178 


150 


¢ 
799 


WP ONL ERCONLOL) 

APL EDEL YL @ROCNL  ORRENL) 
C&LCSDRLeCPiNL) 
MAPHBSDRL OMC(NL -OORLPeH(NL OL) 
TOPLENRLenRLP 
TAP2s0RKLCeORLCP 
TAOPSOKLCOTACNL) +ORLCPOTA(NL OL) 
VOLEMEL (VL ORRONE DODEL CNL OS DORRINL OL) 
DELONL) SCELCNL #DEL CNL OL) 
RA(NL)STOPA/VOL 
COCNL 8 TOP2/TOR1L 

T*(NL) STOPS/TOP? 

H(NL ) SHAPHB/TOPL 
DELREDEL(NL #4 ORRENL OL) /VOL 
C7"1,0-NELR 

7980,0 

G79CZ 

“78 JFONL=JUFH 

Nah Zeubr o1 

Kat 

F7SNELR 

£7862 

Gn TO 179 

CreO741-0 

F78079CZ 

LPCKONZ) $75,174,175 
GZ28NELR 

Kaho 

C2eCZ+G62 

€78CZ°02 
1°(€29278,477,477 
ROACNIEROAIN)OP7OROA(K) 
HNB(N) SROR(N) OF Z0ROB(K) 
RACCNIBRICIND OF ZOROC(K) 
TECNONZ) 47151590272 
NaNeoy 

RABIN) BROA(K) EZ 

RNB(N) SROBIK)OEZ 

ROC( 1) BROC(K) OEZ 

Gn TO 172 
ROACNIBROACN) CROAK 062 
RAC NISROBI(N) eROB(K 1062 
RAC( A) FROCON) FROCK KI OGZ 
6” TO 173 


Ge TO 440 
HETURN 
CANTINUE 
RETURN 
a5) 
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O314 
31a 
B3524 
B34a 
B3sa 
B344 
9334 
34a 
asia 
B314 
B34 
8344 
B34a 
B344 
Bsa 
314 
6344 
a34a 
34a 
BS4a 
B3i4 
o3ia 
344 
344 
344 
B344 
B3ta 
B34a 
Bia 
asia 
8344 
8344 
B344 
B3ia 
8344 
B3i4 
B34a 
asia 
6314 
B344 
B34a 
B31a 
Sia 
BSt4 
B34a 
B31 
e344 
B3ia 
B34 
B314 


602 
603 
604 
605 
606 
407 
608 
60° 
610 
641 
612 
413 
614 
615 
616 
617 
618 
6419 
620 
621 
622 
623 
$24 
625 
625 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
440 
644 
642 
643 
644 
645 
646 
447 
648 
649 
650 
651 
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A. ° (3) Flow Chart 


C MOYER 





SUBROUTINE CHA 
TWO MOVING BOUNDARY INTERNAL CONDUCTION PACKABE 
AEROTHERN CORPORATION RM KENDALL 


7600 GO TO (7601.6061,761.761.761).cCHA 





Cc PHAR AND P YSIS ZONE CRITERIAL DENSITIES 
GNCE CEO SRHOCE) “CHER Ts CRHOCT SERHIOCE 

ONCPC2 aRtO Ce UPYERT 9 CRHOCT> -FeCe >> 
INITIAL VALUES FOR TIME LOOP 


1330 ITER=-1 
OTHC=OT 


ong 


Chet. 
TH2RO=TPRC2 > 
NXT: 


3 
4, 

3 ° 
+n & 
“4 

a 


red 
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LET, NPG. RECORD 36>) 







5 






0a needs 


TAC : 
€1.-PSIA (RHOOR|* (1 .-PSIAD> 
<1 “pelppesbechieceeest .-PSIB)> 
1. -PSIC) oBCe(RHOOCee( 1 .-PSIC)> 










Si/2. 
RR, NUMN. RAV, AREA, EMA 
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ee. 2 ae eaee 108 






F Bucoevece> 


103 X(N) = ERS, | 
HIND *@X (NDOHPCND 4 (1. ON oN 20H 
ERS, | Re eceeND 





104 ROT<N>=(ROA(J>+ROB<U> ) @AMA+OMBS CROC CJD > 
108 CONTINUE 
IF CNUMN-NBMD 112,106. 106 


L LOOK CKT#®, TACNDTTECL. KT). TCPCL.iCT), TKPCL-KT),0,0.¥2,02.2 
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32 Ny tee AC Oo “i tale Seok +HCONY 


Ci ORT CNM) RC CHLD/RRENLD 
120RSU 








2 aA 
wt cH 
= =tniroy/ coc Boch 





DTe=TSAVE-TR< i> 





'NXT+.00001> 700.3000.3000 


+.00001> 3410.3000, 





3410 IDSPs1 


| $411 DIOT=12.eD80TR 
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WIs¢) +19/2 
CALL _LCOUNT(334M I. LCT. NP8.RECORDC(35>> 

322 WRITE (KOUT.543)TH 
WRITE (KOUT, 544> 
WRITE (KOUT.S45> ITER. ITS.II -RSU. HA.HE.CH.BR 
WR (KOUT, 546) 
WRITE <(KOUT.5$7> 
BPRM=<OGMG+CHDD/CH 
SIPRMB<8E¢S/CH 
MKITE (KOUT.54¢8) BPRN. BPRMS.CHMD.ESMS.CHT. GSNT 
WRITE (KOUT.5480) CHCRI.PYCRI 

t WRITE (KOUT,. 5481) SA.OIDT.CPE(1>. OCDT. CPEC2>. DPDT 

WRITE (KOUT, 5482) 


“ av24 WRITE (KOUT.5983) OCONV.QRP. RAD.OCHEM. OCOND. SCONYT. ORPT. RAOT. OCHE! 


17, GCONOT 
WRIIE CKOUT.5484) 
A ee TB. DEOT.GLOSE. P@PUT.DECOMT. TT.DEDTT. 


IF CNCOND 2020.3020.3021 





3022 CONTI 






| FCNOD 182.162. 184 
ee ee oe 
194 CALL OGLE <NO.S0. TOC1), NL. RACLO. TACL). EMOC1>) 
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DC 6 Tei. 
perme ——L 


rere ae 






PALL OBLE <NI.SOCNO+1). TOCNO+1>.NL. TA. RA. EMO 












CALC LOOKC11. XCi). TX. Fi.F 8.0.0. V1 
CNOCT>Y1¢3 . OCNCID4Y1 (2 20CNECID 
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30:2 CONTINUE 
DO 3011 J@1.NL 


KenLT | 
LeJ 


CL-NLD 3002.3002.3001 


00% L | 
tnd 


COND 3000, 9008, 2010 





3011 CONTINUE 


~477- 


OT Lb RR 








AFWL-TR-69-114, Vol. II 





$410 OTH=AMNINICOTHB. DELCR/ (DSOTB+ .0000001>, TH-THDS. 50 .0/(ABS<TSAVE- TA 
PE steel? 


BrecheRt THD/ CRINT< CTHPRT-TH>/DTH+1..0 >> 
1¢¢ THeTHYDTH 


610 IFCDTH-.000001> 162. 162.608 





———e ee a eT Ee ie re ee 
e 
- 
4 
‘ 
‘ 
1 
“a 
g 
° 
~ Het atl a ae en aati late 


60 TO 3000 
Cc 
(4 INTERNAL DECOMPOSITION <-- DENSITY CALCULATION 


is 608 Ne-JFH 
Cc Sia ACE CHANBES DURING THIS TINE INTERVAL | 
OGOTeDTH 
Tif eds 
GAe' i. 
RSUAABECREV+SAD 
OTH@=DTHC 
DEL CNL )=DEL (NL-D8 
FKe0 .0 


ROOZ=0 .6 

TRCN. +1 >eTACNOMD 
DEL CNL+1>=0EL CNBM> 
RRC NTL DORRC N@M> 





00 868 Gad, UF 
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F CJ-dFHP> 252.959.2532 





259 IFCHAIL(L*MATLCIOV)—-4) 068,860,203 


263 IF CAMAXICTACT>. TRCI+1)>-TRACH) 26 1.261.262 | 







¥G2 ROOT=0 0 
djs 


TACT +3 TACT > / CFIPS+FUF/ DEL CI ODEL C141) / ARC I DORACTI41>> 
TABeTACTID 
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1010 FK=FK-1.0 


IFCFKD 1019. 1016. 1020 


ite |! | 
a Ly 
| 


1086 OSS=0SDT/DEL (7 oF K 





1115 CROBSN+12+RORCN? 2908S. 
i ND 0038S 
«= (ROCCN+1> CN) eDSS 
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irri er Se 
~ ~ 
bg 
w 
= 2% 
— 2) 
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f es, ~~ 





| 60 TO 2113 
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ND? Pe Ra ALBERTS} 





CPOWP2IL1.2112.211! 


2111 DROAT@(-RD OW>- FROEXPC-ER, TABI SDTHD Oe 
ict. MPORD SOI 










98131. 2132 .213) 


181 OROBT=(-RD e+POWN)— — 
i. 7POHD>/ OTH 
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DROBT RDS (EXP (~BReODT HEN 


p -- D BCT eDROOCID- DELCT eC COROATSDROGT > +GAHAHOHO*DROCT> 


ie. eb iret > 


263.2251 
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RONCT@RONC I> /FUF 


bad Or, £64 


"STAD TR/DEL (1>ODEL(e>/2 once? 
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RAT CI) @DEL CID/ CONCT RRC TD) 





NONno 





fori Oe 100TH 
UCOT=(CPEC1) >/ 
OPDT=(CPEC2 )-POLD/NTH 

TON OF pe tert COEFFICIENTS 
warn i THAL ENERGY 
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RATC idee ORATCL 
CPNLECP CHL) 
THIN-O 


00 30 T=]MIN. NLA 


2a" ORR 


ns Sem 
a ale CRONC 


I> 
ORO19H 1 /DEL (100TH 


7 ROL 
4 Son acrst 34120€2 .0-N1> 


fires Ree peebee ba seck vencten» 
touje +7 


/RHOC3 OHECT+1> 
141). TT1. THB.S.0.0. HONS, CRORE. 15 
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2oRGU 
Noe REGuIRES DIFFERENT TREATMENT 
(NLD2 


CNL RAT CNET) 24RC CNL /RRCML > 


¢ Je (CPRRGSRROTTORCDROT/ DEL. CHR.2>% 
ee 100TH 
Lega cn carp tt gat it Mibet ene» 


BM) 60.40.40 


CIDORET CIOL 4ROCTO/ARCTDD 


cise comme 


=1 
Bet deD¢L>-CeL>/mcL+s>eDeLe29 





Fae ae 


AFWL-TR-69-114, Vol. II 


GERINK CAND DROP) OF LAST ABLATING NODE 
DELCNLSOBL<(NLD-DS (SEE INT DECOMP) 
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IFCN-NZ) 171. 180.171 


ACN KD 0€ 
ROBC Nookoee KeEZ 
ROCCN) ROC KK 0EZ 





tOF bY ROM ? (ORC ag 
ROBCN2 =ROBCN) +ROB CK 9OZ 
ROCCN =ROCCND ROC KK 06Z 
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f. Subroutine INPOUT - B32A 
(1) Function 


Input/output routine for CMA. 
SLOPQ, LOOK. 
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Called by CMA. 


Calls LCOUNT, 


(2) Listing 


0n0001 C6376 8324 901 
ocoore SURIGUT YE «EE INPOUT 6328 902 
ov0oc3 CAMMON/CAMCOM/TLAC( 2042002) oTMG( 20), TTS§( 2001002), TCHEM(20,10,2), 8324 N03 
onooo4 UNLOC ZOD NWI 20) KHEC 2M)» JCMAL IMG, CMC NMG, B324 004 
ov000s 210M 2), TPRC A), TRAD( 2), AB 8324 G05 
0090C6 3SeTV26 2U 02) 0 THZ0 2G 02) oTT2030) 6 THGC 30) AH1202) oe TAC39) DELHG, T1,22,CuB324 06 
00.1007 4, 0"0 APRIG KONIG) B326 907 
Conoua FOUTVALENCE (NCLASSsJUCMA) 8324 0Ch 
O20009 COMMONSLONENM/KOUT s TEX, DEN VR, 141423), 140623), 12023) 8324 999 
090010 COMMON/CMACOM/TEP( 20,2). TCP(20, 2), TKP(20, 2) 6324 910 
00001, 3,2H0(62) MATL (38) DEL (309,S0029) , HC 3A), RCC 38), R234), RECORD( 36), B320 511 
000012 44764(36),EMA038), RAVCS8), 8324 012 
ov0013 5w96(152),208(152),R0C( 152), 8324 913 
orooi4 6 TP1630) .VEZ > CHHONPR, B32a 014 
000019 TFLOT, PGoll + NOM NUMNONL, NELM, RET, AHORA RHORR,RHORC, TRA O32a 118 
000016 8CAe TRACK, TRACC, RHOOA,RHOOR, RHOOC EA, EB EC BA B80BC PSIAsPSIB,PSIC,B324 016 
onoos/ 9TPAC' PET, PETE REV, ETA,OTPRSNTPAZ,OTPRT, TERI, TPR2,THZRO, THF IN, WT 8324 OL7 
ocools COMMUN/CRACOM/EPSH, TRES, 8324 018 
000019 1LT™WT, GAMA, OMG NO, FUFH EIFS, JF JEHP, JEM, INPUT, OTHIN.BRP,HCONV, 8324 019 
nooo2s 27''1CH DTHB,NNONT NOS sCHCRI »PYCRE .NCON, NRoTK(30),61630),F2(30) 8326 020 
000021 CAMMONS MI BCS GPRM, CMT, COLD, CP1,CPG4S,CPNL.CZ,0C0T DECOM, 8324 021 
000022 LDECOMT MELCR, DELReDENOLD ,OLDT,ONS,OPDT,DRLCP+DRLCDRLP,ORL»OROAC, A324 O22 
oco02s 202047 sDROBC »DROABT ,OROCC OROCT ,DRONTO.OSOT 0S! 08,088, 0TA,DTHC,DTHe8324 023 
990024 3, ATS,0V8,02 EGOcEZ FACT FACT2 FA, FB.ECOFUFSFK, F2.,GSECR,GSM,CSMT, 8320 024 
o00gZ> 46701 eMAPHB BAR HCAS HRES. LE, 1"INo fo 18> [8Ve ITER Ido doKK, KeKTobL, 8324 025 
100026 SNOR NLT o NLM) NSNZ, 0, PGPU,PCPUT, PUL, POW, 2,088, 9, OSST, RO, R01, RUOZ,SaB324 926 . 
ocon2? 6, S0EGR, TaS, Ta, TERMS» TERM2, TERMS, THOS, THs THPRT, TN, T0P4, 10P2,70P3,7, 8324 027 
o00024 7TT VOLO XL 6324 028 
oocoey EWLVALENCE (OM1.0H2202)).(9H2,0H12629)507SeTA) B32a 029 
000035¢ OIMENSION TNRY( 20) 8324 930 
000031 497 FARMAT(I2,3F10.8) 8324 033 
000032 454 FARMATC//7X,66HTABLE OF OPTIONAL MASS~FRACTION FUNCTIONS FOR THERMB3S24 034 
000033 Lal CONOUCTIVITY/25Xe23MK © FLCX)OKP © F2(KIOKC//25K,4HX, 12K, B32a 035 ’ 
000034 254F 10) 20M, SHF2(KI/7013K0365N, 610.499) B32a 036 
000C35 499 FORHAT( 1246) 8324 037 
000036 302 FORMAT (6x1244) 8324 038 
an0037 B3N3 FORMAT //24X31n--REACTION KINETIC EQUATION*--/4H ) B32a 139 
900038 SG4 FARMAT(LOX67MDRHO/OTIME © GAMMA ( BAGEXP( -EA/T)AHOOA( (RHOARHORA)/B324 040 
900039 LRUOOA@OPSIA )/ 24XS6He GAMMA ( BBOEXP( ~EB/T)RHO0B( (RHOR-RHORB) /B520 041 
ovoo4o 2AUCOBISOPSIA 9/ 19XSBHOC2-GAMMA)( BCOEXP( @EC/T)RHOOC( (RHOC-RHORC)/B32a 042 
00004) JRHOOC)#@PSIC )) &324 043 
000042 505 FIAMAT (24X32H--eREACTION KINETIC CONSTANTS@-"/1H ) 6324 044 
070043 S06 BARMAT (11 XAMREACT I ON2X4WRHOOSX 4HRHORAXLHO7XIHPSIAXIHEGXGHT REAC/OBS24 045 
000044 LIVLOXLLB/CU FYI6X7HC2/BECIL2NIM(DEG R° X7H(OEG R)) aa 046 
000045 5N7 EORMAT (24X41, 2X2F902.2KE10 64.67.20 2KEL0.40F 8.0) 832A 047 
900046 51C FORMAT( L2X32HRESIN VOLUME FRACTION, Gamma 8 FS,3,17H(MASS FRACTIONBS2a 048 
000047 1 8 Fo,5,4H)/in ) 32a 049 
000045 51D FORMAT (24X32H--e TIME INCREMENT INFORMATION@~-/1nm ) B324 50 
000049 512 FORMAT (OXLBMINITIAL TIME (SEC)F7,3,26X16WFINOL TIME (SEC)F7,2) 8324 051 
000050 513 FORMAT (1H /OXL7HOUTPUT INTERVAL 8F6,3,1X27HSEC FROM INITIAL TIME 8324 052 
000054 1U'TIL F7.304H SEC) 8324 053 
ocacse 514 FORMAT (OXL7HOUTPUT INTERVAL @F4,3,1XAMSEC FROMF7,3,i1X9HSEC ENT eat 954 
000053 17,3,44 SEC) a 958 
oco0s4 515 FORMAT COX27HOUTPUT INTERVAL 8F4,3,1XBHSEC FROMF7,3,1X20HSEC parieses 056 
000055 1 €)NalL, TIME/ZH ) 832a 057 
000056 516 -ARMET COX,LOHMAXIMUM TIME STEP 9,F4,2,8H SECONDS) A324 O5A 
000057 617 Pow tal( 'ZOXL6H=-eNODAL DaTaere/in ) B32a 059 
00v0>8 S18 FIRMATCOX74HNOLE MAYL TEMPERATURE RELATIVE THICKNESS NODAL DFAS2a 060 
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ocondSs 
ovouéc 
Ooo0s, 
cvoca2 
900063 
BuG0e4 
3C0065 
OCOChE 
906047 
O000Fs 
or1969 
on007c 
100074 
onno/2 
ocon75s 
0000/4 
onga7s 
900076 
000077 
390074 
oc0079 
ocours 
109081 
ocoors. 
no0cs3 
onooe.s 
ococrs 
Oconns 
drone? 
ocnods 
actors 
On00¥%¢ 
900094 
07009 
900093 
900094 
00009 
eleleteh 7.) 
090097 
oc00%a 
Ov0099 
O7010C 
ocoi04 
OcoL1us 
9ro1u5 
900104 
ocoics 
one 
Ovo? 
o7010+ 
00105 
ocn11¢ 
000111 
9c0112 
ocoi13 
ocoii4 
ocOzi5 
0f0116 
0¢0117 
OcOils 


etm CONT. FESTSTANCE) ] 
819 FORMETOCTXI3SHIO, «NO, (DEG. PANKINE) AREA CINCHES) CINCHES 98 
1 «(SUF T+ -MEGs/ATU)) g 
S20 CORT ATC IM 2T6,F12,71EL3.40F 905 9F 12.6042 £154) ry 
521 FOKHAT ( L4X474MINIMUM THICKNESS OF LAST ABLATOR NCDE (INCHES IFB 
17.4/24e 1 GHTMFRE aRE 12,40" SONELETS ASSIGNEN TO EACH ABLATING NOB 
eye) 6 
522 FORMATU/L SNS GH HEAT OF FORMATION OF MATERIAL CONSTITUENTS---/3748 
LAC ATUSLBAY/2LX THELASTICLIX4HCHARLIXSNGAS) 6 
HPS EARMAT (2UKFG,257KF9.2021KF9,2) e 
524 ENR4YATOCSIXZRHENTHALPY DATUM TEMPERATURE 8F9.3,1X11HOEG RANKING) 8 
525 FOMHET «= CS /20N3AHemMMATERLAL THEQAMAL PROPERTY D&ATA---//6X14HMATERB 
Z1/L “CO. LLOKI4HHATERT AL NO, 240¥2A4HMATERTAL NOS. 3 THROUGH 10/6X168 


2nVIRGES PLASTICISX4HCHAR23xX 7HRACK UP) 8 

576 FAR ASTC/OYL2HMATERIAL NO,S2¢39XQHDENSITY tF8,3,2K8HLB/CU FY/ | 
1 TKLLHTEMPERATURESXS SHSPECIFIC HEATSXLANCONDUCTIVI TYSXSHSENS 
PSIRLESXLCHENISSIVITY/SOXBHENTHALPY/OX7M( DEG RI7TNKLAHCBTU/LA-“NEGI4K18 
JHC ATUSE T-§ECHDEG) SXAH(BTU/LED/ 8 
4 CAKES, 2 AKE7, 4s 9KMF10 675 7KF 9.2, 4KF704)) 

B27 FORMATO /SOXLZHMATERTAL NO, T2e39XOHMENSITY SFB.S,1KAWLB/CU FT/ 8 
1 TXLIRTEMPERATURESXS SHEPECIFIC HEATSXL2HCONDUCTIVITY/OX7H(AB 
CEM H)IXLZHCATU/LB=DEG 4X2 6HC ATU SE TSEC oDEG)/ 8 
3 CaxFA,2,AXF7.46,9KF10.73) 8 

S7E EARMAT(39H BAD SURFACE STATE TaSLE -- QUIT yOR ) . 


331 ECKMAT (14 /EXLZORTEMPERATURE (DFG R)S5611.2) 
532 EnRMAT (/720K47Hee RESIN NECOMPOSITION GAS SENSIBLE ENTHALPY===96¢ 
533 FARMAT COXLOHENTHALPY = (ATI/LB)SF11.2% iy 
534 FORMAT C1 7/23K4 IMM TIME NEPEMDENT AQOUNDARY CONNITIONS=---/th ) 6 
535 FORMAT (OKs 4HTIME BX s 4HPROA s 3K» AMMECOVERY, SX» PHRADIATION, 4X, GHME ATA: 
15¥, RUPRESSURE , 3X, PHALOWENG/9X, 54( SEC), 7X, 4HOPTN» 3X, BHENTHALPY, 5X, @- 
2OHHEAT RATE. 4K. SHCOEFF,14X, 9HRENUCTION/28X, OH(BTU/ B) 2X, 1 ANC ATUSSB- 
Bu Rae LX, LOH(LB/SO F<, 3X, SHC AT), 3K, 9HPARAMETER /40X,7HSECOND), 8: 
44¥,7HSECOND) s: 
S30 FMRMAT (OX DFA, 20 HK 12,4, 20FB 2.3K) FB eS SK0FB 5, 3KOFA.S) &: 
537 FeRMaT (LH /9X+ 49HCH/CHO s PHI/(EXPCPHI )- “1.) WHERE PHY # 7,eBRPem 8! 
1O°T/CHO. RRP IN TABLE? &: 
538 FIRMAT( //27%30HeeeSURFACE EQUILIBRIUM DATA---) 8° 
b3¥ FORMAT (14 /6XL2KM DOT G/CM 9F7, 474m ) 6: 
$40 FORMATO 2( 7X4HTEMPAXSHLOGIXON( WALL) oS) /206X7HCNEG RISXLONMeNOT CB: 
L/CM2K11H(14R PRIME D2K1/20 29KBH(RTU/LB 4K) a: 
541 FORMAT (SXFH.2,4KF 7.4, SXE9. Sp AXES, 204KF 7.4, SXF9.2) 8: 
551 EARMAT( LHL LOX65HAEROTHERM CHARRING MaTElTAL THERMAL RESPONSE AND a8? 
LELATION PROGRAM/73SX4HPAGEI3S/1m 67K246) 6: 
552 BORMAT (9%. 4HTIME, OX, 4HPROBs 3K se PHSURFACE » 4X» THSURFACE/9X» SHC SEC), BS 
17%, 4HOF T..,5%, 4HTEMP 45%, SHRE CESSION/ 26K. 7H(DEG R)6K.4HRATE/3BX, 6 


ZINK (MILS/SEC)) Bs 
553 EORMATCAX2¢HeINITIAL INTERNAL RAOTUS,1X-F6, 3.4K 21MAREA POOP, TO RaB? 
TUNSe0k 4,2) 63 
554 FORMATCAX24HOTNITIAL EXTERNAL RADIUS, 1X0F6.3,4Ke22HAREA PROP, TO RaBd 
ACIL5eeF 4,23 63 
555 FIRMATCAKI5HePLANAR SURFACE) H 
556 FORMAT (9X, 4HT IME, OX, 4HPROB SSK, AHVIEW, SX, 9MRADIATION/SOX,SHISEC). BS 
17%, 4HOPTN, 4X, 6HFACTOR, 4X, 9HHEAT RATE/3BX,LLN(BTU/SQ FT“/40X, B3 
27HSFCOND)) 83 
540 FOR4ATO12,5E49.0) 85 
SAL FORMAT (12,F 8,4) 83 
SAL FOAMAT CE2eTS TL el2el2s7F10.5/8F19.5) 85 
HAO FARMAT (6109X2F10,50E10.30F10,5,E610.3,F10.5) 85 
571 FARMATCL2,F10,92F10+5sF10.80F10,9) 83 
57% FARMATCTL,F 9.52 7F10.5/8F 10,5) a3 
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NOt 
N62 


1 063 
» 064 


068 
066 
967 
N68 
069 
670 
on 
972 
n73 
074 
975 
A716 
a7? 
7A 
a79 
oan 
082 
082 
683 
084 
0485 
086 
087 
68 
nag 
090 
AOL 
092 
093 
nga 
305 
296 
197 
DET) 
999 
100 
101 
102 
103 
104 
105 
106 
107 
198 
109 
110 
141 
Vir 
143 
114 
115 
116 
117 


149 
120 


000119 
000120 
900221 
000122 
000125 
000324 
0.0125 
0C0126 
oe022 2? 
000128 
000379 
000150 
000131 
000132 
000143 
000154 
000138 
000136 
000137 
0c0158 
00013% 
000140 
000141 
000144 
000343 
000344 
600145 
oco146 
000147 
000148 
000149 
000150 
090251 
000152 
000153 
000154 
000158 
000156 
000197 
000158 
000159 
000160 
000163 
000162 
N00165 
000164 
906145 
000166 
000167 
o0014%e 
ocoi1e9 
000370 
000171 
090172 
000175 
300374 
006375 
ocai74 
000177 
000178 


e 
$77 FORMETC11,F9,5,9F10.5) B32a 121 
$79 FARMATCL2x2E12.5,2E13.6511) B32a 122 

5796 ENKMAT COXe26HNO RADIUS CORRECTION ON CH) 6324 123 
5791 FAR“AT (3FB,5,F9.4FS,312F9.3,19006) B32a 124 
S792 FARMATC//6X03HP O5F9, 4,44 ATM//AX, SC 2SHTEMPERATURE EDGE FNTH 9/8524 128 
16¥,3(25H (MEG R) aY TewALL =)? 8324 126 
5793 FORMAT (//6X,37HBAD SURFACE EQUILIB@IWM TABLE OF TyPE, 12) 8324 127 
5796 FORMAT (/76X,74HEDUAL MASS AND HEAT YRANSFER COEFFICIENTS AND E9Us832a 128 
1L DIFFUSION COEFFICIENTS /6K ,290HNOMI Ya, SURFACE VIEW FACTOR 2, e324 129 
2F4.3) B32a 130 
S789 FARMAT( //6X014HM@DOT=GA8/0M 8,F7,458X,10MPRESSURE 8,F9.4,4N ATM// O324 134 
17%, 2C4HTEHP 25x, 26HM@DOT= CHEM.PROD | SURFACE 2 3X) /6X, 2¢36H( NEG R) 8324 232 
2cHAR/C™ = (STU/LA) SPECIES. 2™)} a32A 133 
S795 FARMAT( 5X, F862 2K F714 AKA De AK Abr 1K oF Be Se2KeF 7 Me 2KoF A 2, 4X AGBSZA 134 
1) 632a 135 
5796 FARMaT (2F10,9;9¥:18) 8324 136 
5797 FARMAT(//6X,4SHRATIO OF MASS TO HEAT TRANSFER COEFFICIENTS 5,F6,3/8524 137 
1 AX, Z8mMUEQUAL MIFFUSTON EXPONENT 2,66,3/6X.29HNOMINAL SURFACE VIEB324 133 

Pa FACTOR 96°6,3511H (OPTION 4)) B3z2a 139 
8798 FORMAT (6X0 F9.204K FO. 2,3K0F9, 2.4K FO, BS2A 140 
227K FO. 2,4 9.2) B32a 142 
5799 FANMAT (6X) 6OHHEAT TRANSFER COEFFICIENT MULTIPLIER sy (CR INITIAL sAB324 142 
1 CURRENT )00%,8) B32a 143 

SAO FARMAT ("F40.5) B32a 144 
SAL FORMAT /14X20HBACK WALL CONVECTIONLOXOMBACK MALLAOXOMMESEAVOIRY «§©68320 145 
LISK2A3HCOEF ATU/ETSQCSEC@DEG RAN OWEMISSIVITYSXILHTEMPERATURE/ B324 146 

21 7KF10.4.10XFA.3,20KF10.2) B32a 147 

BAZ FARMAT(SFI0.9,OX.11) O324 148 
DaTA BLA'K,ASTER/ 3H , Sues B3za 149 
KAUTSS B32a 150 
tvpures B32a 153 
N¥G8C A32a 132 
INCHs8 32a 193 
¥?e0,0 BSza 154 

c LYPUT/OUTPUT BS2a 355 
¢ 8322 156 
4 NPGei O32a 157 
WITTE (KOUT. 552 NPG B32a 158A 

READ CINPUT, 409) (RECORD(1).101,34) 8524 159 

i EUNIYNB3S2a 160 

C Pney2a i6a 

C 8999,9909 )TUPN],FOE(B32a 162 

HATTE CKOUTSSOZ)(RECORD( 1s te4.36) 8320 163 
wliTE (KOUT, $03) B52 164 
wAITE (KOUT,»S04) 32a 165 
wQITe (KOQUT,S0$) B32 166 
WOITE (KOUT. 506) O32a 167 
READ Se ere tee Ae RAD ky MeO Re Nee TAC E DS caren ee sanmbied +++ 168 
18, PS1B,E8, TRACB ,CO,RHOOC,RMORC,BC, PSIC,EC, TRAC 6324 169 
Wat TE (OUT, 507249 ,RHOOA, AMORA, BA, PSTA, Ek, TRACK BD, RHO08,RWORB,B8, 8320 179 
1PS1H,EB, TRACB ,CO,RMCOC RHORC, BC, PSIC, EC, YRACC B32a 174 
READ CINPUT, S63) UF eNUMN,NNNOSE, THZRO, THEIN,DYPRT,DTRPRZ,OTPRS, B3ea 172 
LOTHR, BRP, TPR2, TPRS,DELM, OMS ,042 ,OELHG, GMA, TZ 8320 173 
IFC UFeL) £74,270,172 B32a 174 

470 yre2 B32a 175 
Ge TO 172 B32a 176 

174 vFe10 8320 177 
172 ures uF /2 O32a 178 
JES IEHOJFH 6324 179 
JEP SUP Hey 852a 160 
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ES ete Oe eee Se RE UP age ES re aT ae eee ae ee NE fi ee ke pele ig ee oe en gy ee ee ee Oe ee 


000179 
acorre 
00011 
lal bo 4 
ochaes 
ocoihe 
900145 
ocoye 
orange? 
Ocoite 
O0oLKs 
o¢0499 
OcNys1 
0601%% 
ovo1y3 
no016 
9en19sS 
020196 
ocn197 
C0195 
orns99 
oI0200 
000201 
O0020e 
neo2cs 
OLO? 16 
oogens 
or020e 
Hovel? 
Non2vr 
O"O2L9 
oco2i10 
ord2is 
000<12 
000213 
ocoeis 
ocgeis 
030214 
900417 
Orders 
000219 
000220 
00022) 
Or0e?? 
acdecs 
ocod2gcs 
odes 
OT02c6 
OC0227 
OCO2e» 
a0022s 
9002359 
ocezs1 
O2N93S2 
000253 
Onne sa 
oco23ss 
OCge2se 
900257 
ocogsa 


1%2 
1Ad 


453 
ya4 


ang 
acy 


410 
412 
ai) 
aye 
415 
416 


416 


417 


C4a3 


3ne 


453 
a%e 


463 
4543 


Fb Seu 0328 
F IF MAF UFS/2.0 32a 
Apende's} 8324 
TF O80) Fale dodo tR2 O52A 
READ (CT VPUT, 580)(SOCTI,1820NN) 324 
Cor TINVE 32a 
TF ONT) 284,484,203 6328 
VP a0e2 6324 
Roan CINPI.T, Sed) €SOCT). Te@NOP.NOT) 324 
16 (GaMa)d 404,499,409 0324 
6 MaRRHOOC/ (RHOOC @(RHOQACRMHOOA) @ (AHO0ARHO0B)/G4MA) o32a 
ONGRL,CeGAMA 6324 
Baih0 4 18G4 100 (RHOUAFRHOOR ) CONG ORHONC 6324 
RHO07 IES § BO CRHORASRHORA ) OMG ORHORC B3Za 
SAMSM8GA A/RHOCL I OCRHOOAPRHONB) 832A 

OLTE (KT, 52:9)GA4A,GAMAM 6324 
IEC OTH) 417,419,442 6324 
BTH925, a32a 
OTHIN SY a32a 
JOECTERZ 1434542454699 6324 
TERIe THE TN 8324 
LE CTPRS 416.416.4437 6324 
TER3STHE Jt, 8324 
LE CTPRZ*THZRO) 448,444,447 a32a 
OTHRTSOTPR2 32a 
UTPRZEDTPPS a32a 
TPk2eTPRY B32a 
GO TO 416 6324 
with (Kutt. Sag) 8324 
Tb INSAMAXLCTHEIN, TPR2,TPRS} B32a 
wOtTE (KOT, 512)7TH2R0, THFIN 8324 
APTTE CKOUT SAS ILTPRY, TPR? A32a 
WITTE (KOUT,/ S14 )0TPR2, TPR?, TPS B324 
wI1TE (KOUT, S15 307PR3, TPRS B324 
wItTh (KOUT, 516) NTH 32a 
ICCART,ACART, ACART(FIN{ MEME 48324 

TOACMMAMINICTRACA, TRACB,TPAe 6324 
PETE RRMO(1)/(RMO(S )@ANOOS)) 6324 
PFTSPETEeRHN( 2) 8324 
woresecnee NODAL PROPERTIES 8324 
ye O32a 
J SUF H B3e2a 
CALL LCOUNT (=NUrN@B, LET, NPG, FE CORD( 38) ) 6324 
wUETE CKO» 547) 8524 
AOETE (KOT, SLA) 8324 
aMiTe (KUT, 519) 832A 
ARASTER 6324 
READCINPUT, SOC CATLETI STACI) ,AREACT), DELCT? Ral) QCCL), fet NMUMNIBS2a 
aFwQa(2) O32a 
RSvavacd) 8324 
Ralse0.n 32a 
9 400 feqsNuMN 632A 
TEC T}-2) 4844,492,453 B32a 
RACTISRACT #1 OCDEL CT 94 4DEL0T9972,0 B352a 
Go TO 461 8324 
RACZIEUELCLIFDEL CP) 2, 6324 
Bebl ann B324 
DELC TOL OPEL CT 19/22, @32a 
tavelyeRact) 632A 
[FC AE) 4542,4683,4942 A324 
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191 
162 
343 
104 
as 
186 
167 
148 
199 
190 
191 
162 
193 
194 
195 
196 
197 
4198 
109 
200 
201 
202 
203 
2n4 
205 
216 
207 
208 
209 
210 
231 
212 
213 
214 
215 
216 
217 
rt) 
219 


221 
222 
223 
224 
225 
226 
227 
22a 
229 
230 
231 


233 
234 
235 
236 
237 
238 
239 
240 


oco2s9 
000240 
000241 
ocoe42 
orn24s 
000244 
000345 
000246 
900247 
900248 
000249 
tn2s0 
900251 
oro2%2 
010253 
ocoegse 
000255 
000256 
900257 
00025a 
000259 
00200 
0co241 
0c0262 
0c0263 
000264 
000268 
o0Nn2e6 
00n2e7 
000260 
000269 
600270 
000271 
090272 
090273 
000274 
000275 
oc0276 
ocn27?7 
360278 
000279 
090240 
00024; 
o0g2s2 
OCN24S 
O002r4 
Op02e5 
0002" 6 
oco2e7 
OCO2eR 
6002:9 
o0c29%o 
oco2v1 
090292 
060295 
090294 
oco295 
000294 
000297 
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CabL LCOUNTCS oLCT,NPG,RECORD(35)) 
WOITE (KOUT.S22) 

WRITE (QUT. 523)0H100H2,DELHG 

CALL LCOUNT(2 oLCT,NPG,RECOR2(35)) 
aPITE (KOUTS5S24)72 ; 
eorcceree MATERIAL PROPERTIES 

Cal LCOUNT(4 LCT, NPG,RECORD(35)) 
eP®TTE (KQUT, 525) 
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8324 
B326 
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268 
269 
270 
ree 
272 
273 
274 
275 
276 
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278 
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900315 
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000315 
000316 
000317 
0c0318 
000319 
00320 
000321 
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000325 
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090327 
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0CO330 
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000352 
OCO3S35 
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000335 
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000357 
000338 
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ot03s42 
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CALL LOEQUNT(O0tT 
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4003 CONTINUE 
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COUTINGE 
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HW UKSNLOCK) 
va PK aNH](«) 
O 2007 fereKRHK 
TTSCP eRe 2seTTnctyKed) 
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g. Subroutine LOOK (1I,XL,X,A,B,C,E,¥,D,IDN) - 533A i 


\ (1) Function 


Table look-up and linear interpolation routine for CMA. 


II = 
XL = 


IDN = 
Called by 


table identification number 


value of independent variable for which dependent variables 
are to be evaluated 


name of independent variable 


names of dependent variables (if less than four, unneeded 
Places must be filled with dummy place holders 


names of output values of dependent variables (arrayed in 
order of call from left to right) at XL 


names of output values of derivatives of dependent variables 
X() 


number of dependent variables in list 
CABLE, CMA, SBCPKG. 6 
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000019 
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000021 
000022 
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000037 
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000047 
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090c47 
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MTMENSJO"N KCL) VCLIMCL) 
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teequrciyy 
TLeILOciy) 

1+ Xe 

LECKC TK CILD) 39639,29 
tFxs1 

fF (XLOKCIH)) 352532 
1F CXL“XCTLD) 65504 
TECKL ORC 1H)I1,203 
TECKL X61) 146,556 
teIRCII) 

TeMINOCT STH) 
tsMaxOCl, 1b) 

{S82 

1?e4 

GO TO A 

feles 

1$89 

TFECTEX) 74,528,358 
TECKXLONCL)) 7,20,9 
TECKL RCL) 951097 
{sted 

tran 

1FC1S)10,10.48 
PEC1TI10,90011 

1Fxe3 

telWet 
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1X92 

Telt 
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TIchi dst 

VoexLex cys 
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(3) Flow Chart 
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h. Subroutine COMP (X,Y,VOID, IFLAG) 


(1) Function 


Determines whether the word "VOID" exists at any of the eight 
corners of the interpolation matrix of BLIMP solutions. Called by SBCPKG. 
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090009 
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(2) List'ng 
CB34A 


SUBROUTINE COMPCK,Ys VOID. FLAG) 


VIMENSJON ¥( 20,1002) 
JIMENSION X(20,10+2) 
LFLAGSO 

00 3 61,2 

pn 3 Ksi.2 

1ECVCTed,K VOTO) Le2ed 
LECKET et eKI-VOID) 30203 
CONTINUE 

Gf TO 4 

TPL aces 

RETURN 

END 


on Uwe 


-316- 


6342 


e544 
O34a 
834A 
o34a 


o34a 
O344 
B34a 
o34a 
B34a 


not 


603 
004 
005 
007 


609 
040 
043 
012 
043 


ON Ne ee ee remem) nearer 


st pe 


Seicehilinsh Aeuht. saedteter ite ament aie ieee 


f 





AFWL-TR-69-114, Vol. II 








(3) Flow Chart 
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i. Subroutine OGLE (N,XAM,PRM,NUMX,X,P,EM) - B36A 
(1) Punction 


Subroutine OGLE looks up an array of values of a single dependent 
variable corresponding to an array of values of a single independent variable, 
using a cubic curve fit between any two points of the table. The curve fit em- 
ploys the values and slopes of the independent variable at the tabular points 
surrounding the look-up value of the independent variable to determine the four 
constants of the cubic interpolation function, The necessary slopes are conven- 
iently provided by subroutine SLOFQ. Points off the ends of the table are evalu~- 
ated with a linear extension of the tabulated values, using the input slopes at 
the first and last tabular entries. Called by CMA. 


N = number of points to be considered 


XAM = name of value of independent variable for which look-up is to 
be performed (if an array, looking starts at XL(1) and pro- 
ceeds to XL(N)) 


PRM = name of output interpolated values returned by OGLE 
WUMX = number of tabular entries in the table 
X = name of tabular independent variable 
P = name of tabular dependent variable 


EM = name of slopes to be used, 





é, 


9noony 
oonou2 
0000u3 
oooncs 
ocooos 
00006 
000007 
oooacs 
oa00cs 
0g0010 
000011 
990012 
000013 
000014 
000015 
000016 
000017 
090018 
ogn019 
ootozo 
ocoo2t 
0c0022 
090023 
ooon2 
000025 
onco26 
000027 
acoo2a 
ocon29 
090030 
oc00s, 
000052 
000033 
000034 
090035 
000036 
000037 
ooocse 
000059 
090040 
00004! 


ee te a eco 
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D1 400 Jei.N 
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{Tet 

TECKDIF) 72060074 
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1SelSes 
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GO TO (62,66),10 
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1afS 
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DPOISEM( TS) 

6" TO 67 
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OPOTsEM( IS) 
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1S31S+4 
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66 
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oe 
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Ha(FoCudex($o1))06)0(MaeK(T)) 
DPDLSCHOMOEM(! FOC XAaN (1) OC KAeX(L))) 
PRS(MOEMC I) )@(KAOMCT ORCI) 

CONTINUE 

pam( J) apm 

CONTINUE 

CONTINUE 

Qe TURN 

E“D 


S19 


se 


wey 
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Ow 
0364 
O36A 
O3éa 
a36a 
o3ea 
O36a 
o56a 
O36a 
O36a 
O36a 
O3éa 
0364 
O36a 
364 
e3éa 
e3ea 
O36a 
O36a 
O36a 
a3ea 
6364 
O3ha 
30a 
O36a 
036s 
0364 
Osea 
83564 
036A 
0364 
O3ea 
O36a 
B34A 
O3ea 
B36A 
6364 
asea 
36a 
O36a 
A36oa 


003 
002 
003 
004 
008 
o0¢ 
007 
008 
009 
010 
011 
032 
013 
034 
035 
016 
037 
018 
019 
920 
02% 
022 
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024 
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030 
03% 
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633 
o34 
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039 
040 
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3. Subroutine LCOUNT (J,LCT,NPG,R) - B37A 


(1) Function 


Line counting and page numbering routine for output. Called by 


CMA, INPOUT. 


number of lines to be output (if written negative, the snb- 
routine will automatically being a new page, otherwise the 
subroutine begins a new page only if I would lap over onto 
the next page) 

number of lines left on page (the subroutine keeps track of 
this quantity if a variable name is entered in the call list) 


page number (the subroutine keeps track of this quantity if 
a variable name is entered in the call list; the quantity 
NPG must be initialized outside the subroutine) 


a title in format 2A6 which will be printed on each new page. 
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penne RY AR ne POM Rano = 


oenens 
ooonu2 
orcoous 
ococd4 
ocon0s 
079006 
ocood7 
9C00U8 
occoo9 
000010 
ocoonit 
0c0212 
070015 
0¢0014 
07015 
0¢0014 
: ocoo17 


ee pe Se EE SRT BE TET RIN sy 





we re ee 


(2) Listing 

Cas7a 0374 
S'BROUTIVE LCOUNT (JeLCTNPG,®) a376 
COMMON/LOOCOM/KOUT » LEX ,DEN, VR, LHI623). 1L0¢623), 190233 6374 
IsJ 374 
LIMENSJON HC2) e374 


851 FOW4AT(AHLL2X6LHAFROTHERM COUPLED AALATION BOUNDARY LAYER ENVIRON 
LEST PROGRAM/73X4HPAGE13/68X246) 


t8¢1) 2,.2,3 6374 
2 Isef O37a 
ce 70 4 B37a 
3 ULTSLCT-! O374 
IF (LCT) 455,58 376 
4 VPGONPGoY O37 
Lrtess-1 o374 
wRITE (KOUT, 551) NPG,@ O374 
5 RETURN o37a 
END 8374 
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(3) Plow Chart 
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k. Subroutine SBCPKG - B38A 


(1) Function 
This routine performs the surface energy balance and implements 
Calls LOOK, COMP. 


the surface boundary conditions. Called by CMA, 





Sans As Leiner ta athlete AN alll anciamimmimmma, 


1 eae ent zunetane RepreeTpE 


o000cs 
000002 
000003 
000004 
oocacs 
090006 
0090007 
000006 
ococus 
090g1c 
000011 
000012 
000013 
000014 
000018 
000016 
000017 
600016 
000019 
000020 
000021 
600022 
000023 
oco02e 
000025. 
900026 
000027 
ocoo2s 
090029 
000030 
060033 
000052 
0c0033 
000034 
000035 
0000356 
000037 
060036 
000039 
000040 
000041 
000042 
000043 
ocoo44 
000045 
000046 
000047 
000048 
000049 
000050 
000093 
00009¢ 
000053 
000054 
000055 
000056 
000057 
ocooss 


CB3aa 


$29 
$82 


770 
774 


(2) Listing 


B38a 
SUBROUTINE SBCPKG B36a 
COMMON/CAMCOM/TLMC(20,10,2) 076620). TTS6 2021002) » TCWEM( 20,10,2)+ o3ea 
AINLOCZ0) NHEC20) KHEC20) oe JCMAs IMGe IMC NMG, o36a 
2TCHC 2), TPP( 2), TRAD(2),148 B36a 
3, 77262002)  TH26 2002) oTTS030) oTHCL SG) OML202) 0 TA03S9) DELNG. 11, 12sCHBSA4 
4,CMD, BPRNG,KCM( 10) B36a 
EQUIVALENCE (NCLASS,JCMA) B5A4 
COMMON/LOOCOM/KOUT, TEX, DEN, VR, TH3623), 140623), 3R( 23) 6384 
COMMAN/CMACOM/TEP (20,2), TCPC 20, 2),TKP(20, 2) 6344 
3,R2HOC2) /MATLC 38) DEL C30), 80620) ,m(38) RCC 38), Ra(38) RECORD( 56)» 8364 
42264(30),EMAC38),RAVC58), BSaa 
5R0(152),R08(152) .ROC6 152), o3ea 
6 TP1(30) VEZ. GMM eNPR, B3Aa 
TLET NPG TR eNAMNUMNONL, NELM, AFT, RHORAsRHORB,RWORC, TRA o36a 


6C4, TRACB, TRACC, RHODA, RHOOB /-RHOOC EA, EB, EC. BA, B8,6C,PSIA.PS1B,PSIC,8584 


9TRACM, PET, PETE RSV ETA, DTPRS,DTPR2,OTPRT, TPRS,TPR2,THZRO, THING WT 83580 
COMMON/CMACOM/EPSW, TRES. 384 
ATMWT,GAMALOMG,NOoFUFM JES o JF p JEHM) JEM, INPUT, OTHIN, BRP, HCONV,B384 


ZINCH,OTHBNNONT oNOS sCHCRI oPYCRY NCON, NR+YX(3090F3630),F2¢30) 838A 
COMMON/ SBCP/BF /CMMA, CMMI DEAR, OMIV,EMLV-ERPXERRC,ERR,ERRS» 13,14, 830A 
AVRM, VRP, IPR, 1RA, TRB, IRC, TRO, ITL PT, OG. TABC, TEMP, TEMA, TSM, TSSQ 8584 
COMMON/SQCP/ TNXT, ONCPC3),CPE(3), 10020), VITER(S3) EI TER(S1) B3ea 
COMMON/SBCP/ ¥2(16) 102096) 673( 0) 00308), V262) 002(2) 6384 
COMMON/SBCP/ CPC( 50),CPVC 50).CPC 50),HP ( SO)eHC( SO),CN( 50), 8584 
TRAT( 50),ROTC 50),RO( 50).Xt 502-RONC 50)6DMDG( SO),RR ( 50), 83584 
2CNC( 50),4¢ 50),B $0),CC 509,0¢ $0),8MO¢ 30),CNOC 90) 8364 
COMMON/SBCP/BR,  CHZ, cMn\, DEDT»DEOTT OSOTB,DTH, GSMS,HW, 83584 
1ME» ITS» PRES, OCHEM,QCHEMT 2COND,QCONDT,QCONV»QCONVT,QR4,QRP, 8304 
Z2QAPT,RAD,RADT, RSL, SIG,  TSAVE VE XPL, ABU 6504 
COMMON/MISC/ GPRM, CMT ,COLD,CP1»CPGAS»CPNL»CZsDCDT» DECOM, 8384 
ADECOMT, DELCR, DELR, DENOLD .DIDT CNS, DPDT/ORLCP+ORLCORLP,DAL,OROAC, 838A 
2OROAT »OROBC » DROBT »DROCC DROCT ,ORODTD, DSOT 081 108,088,074, DTHC,OTHSB504 
3,078, 0V8,D2- EGO EZ FACTS FACT2 FA, FRLFCOFUFSFK»FZ.CSEGR, GEM. GSMT, 830A 


462 Mi HAPHOHBAR, HCAS HRES, LE, SIN 1518s SEV eS TER Jade KKKoKTobe 8364 
SNOR, NLL» NLMoN) NZ, Oo PGPUsPGPUT POLO. POW, OL O88, OLOSST, RO, RO1,RO0Z, SaB38A 
6, SOEGR, TAS, 78, TERMS. TERM2, TERMS, THOS, TH» THPRT, TN, TOP, TOP2, TOPS, 7, B58A 
7TToVOLoXd 638s 
EQUIVALENCE (OM1,DHS2(4)) (DH, 0H22(2)) 00 TS0TA) O30a 
OaTa VOIOs4HVOID/ B3ea 
FORMAT(A74 ITERATION STOP ) 838A 
FORMAT(1P12E20.5) 830A 
TEC ICMA$2) 77107720770 6304 
TFC UCMAw4) 2513,744,753 838A 
CONTINUE 8364 
xPieXx(s) B3ea 
VEsvez 
17Le10 8364 
17801 3364 
VAP S( THe TPR) )/(TPR(2)°TPRO1)) 836A 
TVKXTAAMAXL( TPR 2). TPROL)) 6364 
CH 8 TCH(L OVAPe( TCH 2)°TCHC1)) 836A 
ORasTRAD( 1) +VRPC( TRAD(2)-TRAD(1)) 8384 
cCHzZecH 8384 
1PRei O38A 
ERPxeO(1) B3ea 
CALL LOOK(12.GSMS/CH,TMG6,0,0,0.00¥20020) B36a 
T4GatR( 42) B3Aa 
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001 
002 
6n3 
ote 
005 
006 
007 
nos 
009 
610 
O11 
012 
015 
a14 
015 
016 
017 
018 
019 
020 
021 
022 
023 
024 
925 
026 
02? 
028 
aay 
030 
031 
032 
033 
034 
035 
036 
037 
038 
039 
040 
04% 
042 
043 
044 
45 
046 


947 
048 
49 
050 
054 
032 
053 
054 
055 
056 
05? 


a Tt eee rs ce en TORIES REP 





a 
tf. . 
ra 4 
000659 yOmMavR 8304 056 i 
orooec 2510 11,0614) 8NLOC IMG) O3ea 05° 3 
000062 T40 014) @NHICIMG) 036s 060 
i 000062 1L0¢15) SNL OC ImGed) 8384 663 
006063 141015) 9NHICIMGO4) 838 962 
onoges 1181,0¢44) o3ea 063 
000065 128110625) ‘ ’ o3ea 064 
fe 000066 List. 
i 000067 L2st2 4 
t 090008 ERRMs1.9 H 
i 000069 JECTMICL4)~1L0014)) 420,420,779 A 
‘ oooo7c 729 CONTINUE q 
' ocoo71 LEC TCHEMCI2.1MGOdeL)-VOID) 730.735.4730 e3ea 065 4 
i 000072 730 JECTCHEMCIA,3MGrL)°VOID) 732,739,752 o56a 066 ’ 
i 000073 732 JE CTCHEM(C 12. 1MGO1.2)°VOID) 733,731,733 BSea 067 $ 
; 000074 733 {FC TCHEMC$451MG,2)°VOID) 2523,731,2533 6384 066 a 
0c0075 731 yemMas3 0394 069 
j 000076 RETURN 8384 070 4 
i 000077 2513 TaBCeTTS( 11, IMG. 4 OVAMOCTTSCI 2s IMGOd, 4 me TT SC 31, iM6,$)) o3ea O78 
; 000078 2815 TAUCUTABCOVAPe (TTECTSs [MG+EIVRMOCTTOC 12, (MGoL sR) PTSC 14s 1N6O1 +2) 138A 072 
: 000079 1-TARC) o3ea 073 
‘ 000080 2503 JJEC TSAVE=TABCe,0002) 420,420,421 
be 090061 ¢ wosecccese ABLATING SURFACE 0300 975 
, oo00K? 421 1F(3AB) 422,422,423 O38a 076 
7 000083 422 CMOLETLMCC11,2MG12 eVRMOCTLMCC IG, IM6,2 = TLMCC LA 1608.99) O36a 097 } 
00008¢ CMOSEXPCCHDL) oC 8364 078 : 
ry 000085 1abes o3ea 07° 
000086 423 CALL LUDK(S4,CMOL s TLMCCL, IMC 54) 10100050000000) 8364 080 
000067 1PassR(14) 6364 083 
ooodKe saetRa e30a 082 
000089 Cah LOOK( IS +CMOL s TLMC(2,1M6015990020,0000600.0? o3ea 083 
000090 TRBSIR(1$) yea 004 
ocoo?1 1281RB O3ea 085 
e 000092 CALL COMP (CTCHEM(3S01%God), PCWEMC 12, 1MGS2),VOl0, IFLAG) 
000093 SECITFLAG~4) 74057425740 8364 687 
000094 744 JCMan4 ¢ B3ea 086 
oc009s RETURN 38a 080 
000996 740 CONTINUE B3ea 090 
600097 744 Cabl LOOK( S24, CMDL» TLMC(4,1MGs4).TTBC2,IMGe2) o TCHEM(2,IMG11)20,02 B38a OFS 
000098 1¥7642,¥203)02) 36a 092 
000099 Cake LOOKCASSCMOLs TLMCES. IMGOS 64 >. TTBCL. 1469464), TOWENC, 1001/4, 838A 093 
000300 10,0,Y265),¥2079 02) R360 094 
000101 CALL LOOKC 14, CMOL, TLMC(S, IMG, 2), TVSC 1, IMG 2)» PCMEMC SL, 166.2) 0000, B30A 093 
ocoive 1¥209),¥2¢44)02) B3ea 046 
090405 CALL LOOK(15,CMOL, TLMC(S, 1M609,2),TTSCL. 1MGOL.2) , TCHEM( 1, 1M601,2),83908 097 
000104 10,0,¥2¢13).¥2¢35),2) B3ea 0908 
000105 LIXMTEX-2 
0n01n6 DO 4232 [ete 8364 099 
000107 4232 Y2C1)8Y2C 1 OVRPO(Y2( 108) -¥261)) 38a 100 
000106 4233 00 426 ta3.4 B3ea 104 
000109 426 VACTISYZCTIS CY2C1 04) 0¥2(1) JevRM B3ea 102 
000110 JECY202)) 4260,4260, 426% o30a 103 
000111 4260 i7LelTs 63864 104 
000112 GN To 4356 30a 108 
000113 4261 CONTINUE B3ea 104 
000124 Cab LOOK(4,Y2¢1) 7726122), TEPC1 02) ,0, OO EMIVOMIV.9) B3ea 107 
000115 LECMaTL 64902) 428,427,428 B38a 108 
000116 428 CALL LOOKCS.Y2¢9), 7720454), TEPC9512,0.0000 73/0301) B3ea 109 
000117 EMLVeEMEVeXPLOCY3SCL@EMIV) 
Py 000218 C*TVeDMIvexPy0(0304)-0Mty) 
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000119 
060126 
000321 
000322 
000123 
oooi24 
0c0125 
000126 
060127 
0001286 
0n0129 
006130 
060131 
060132 
060453 
090136 
000135 
000136 
o0ng3? 
000138 
000139 
000140 
000143 
000142 
000143 
060144 
000145 
000346 
000147 
000148 
000149 
090350 
000153 
000152 
000193 
000156 
000158 
000156 
000457 
000156 
000159 
000160 
000263 
000162 
000163 
000164 
000165 
000166 
000147 
000166 
000169 
0c017u 
000171 
000172 
0001475 
000174 
000175 
000176 
0c0177 
0c0378 


427 TSSAeV201e¥2(1) 

7S#7v261) 

RADESIGOEM] VeTESOCTS SGeVE 
430 EQRsCHEY2( 2) EMI VeQRAeRADH~B(1 )OTSOERFK 

EARMSAMAY1 (ABS(CHOY2(2)), ABSCEMIVeQGRA) . ABS( RAD)» ABS(B(1)e7S), 

4 ABSCERFX)) 

DERRECHOY2( 4)4( (QRACRAD/EMIVI CDM V4, /TSeRAD-B( 2) 0¥263) 

IECDERR) 4365, 4365,4362 
4362 TECIIX) 4365, 4368, 4365 
4368 T7LsITS 

GO TO 4356 
4365 CONTINUE 

ERRCSERR/OERR 

VITERC ITS) @Cen, 

EITERCITS)SERR 

CMOLsCMOL-ERRC 

C¥MIa-1,£e30 

C¥MAs+3 .€430 

TECILOCL4) SRA) 4361,43963,4363 
4361 IFC ILOC15)-3RB) 4270,4363,4363 


4270 ChnToananacQmn FEMECAM, MGs TAD OTLMCLIRA=d. ING IPRDs TLACC IRB. GRIEG 


161, 1PRISTLMC( IRB 92. IMGOd, IPR) 9/2, 
C™OLS AMAXI(CMOL CMMI) 
4363 TECIMEC LA) ©TRawt) 4369,4309,4304 
4364 JECTHICLS)-IRB=1) 4360,4369,4275 
4369 IECITS-ITL) 4366,43%6, 4360 
4360 LFCERRS) 420,4367,4367 


o3Aa 
a3ea 
esas 
6384 


8384 


O3ea 
6364 
38a 
Osha 
6384 
B38a 
@38a 
Bea 


304 
O30 


44275 Fie laat er aera Aart ae LL a ale akc 


1MGo1, TPRIOTLMC( IRBOZ, IMCL, 2PR))/2, 
CHDLEAMENS< CMDL, CMMA) 
LFCITS“1TLod) 4366,4352,4352 
4351 ERRSSERA 
C™OLeChMa 
G9 TO 4276 
4352 OP CERROERRB) 4354,4367,4353 
4383 CMDLSCMMA 
GO TO 4278 
4354 171,955 
TECERRC) 4385, 4367, 4367 
4355 CMOLeCMMy 
Ge TO 4278 
4366 JECITS@1TL) 4307,4396,4367 
4356 CMOLOAMINGCTLMC(L2, TMG, SPR) TLMC(L2, S4GOL, SPR)? 
4279 CMOLSAMINI(CCMOL, LMC (Lip IMGy PROL) s PLUC(L Ss 1MGOS, 1PROL)) 
4270 E8Ret, £20 
4367 CMDPEXP(CHDL) eCH 
TECTYS-50) 440,440,998 
440 17Sa1TSo2 
TE CaBS(CERR/JERRM)=,.04) 4372,4372,423 
C eeracceens NON-ABLATING SURFACE 
420 TS8TSAVE 
1abs0 
GM080,0 
4302 1.0028) 04 
TPECL8) OKI C IMG) 
TLOC39) 92 
TH1699) OKHEC IMG O2) 
430 CONTINYE 
CALL LOOKC AA, TS TTBC1,2MG 10309010020 000000) 
CALL LOOK(19, TS» TTSEL. 1MGO4 099 04000000200000) 
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e30a 
Bsea 
B38a 
364 


6364 
B364 


8364 
38a 
8584 


B38A 


8384 
6384 
8364 


636a 
9364 
838A 
38a 
638a 
0364 
836A 
36a 
8304 
B38a 
8364 


112 
115 
134 
115 


114 


117 
116 
119 
120 
121 
122 
123 
124 
125 
126 
127 


130 
131 
132 


134 
135 


137 
138 


140 
144 
142 


144 


147 
148 
149 


181 
152 
133 
154 
155 
156 
137 
158 
159 
160 
161 


* 


A RRO MIR 6 RE serene 2 TROT ROR EET ETHIER eerie, (o4-wenrnet aye MRE pn 


AN PETER FR TET TEETER ma ce ore 


aN Tee - 


060179 
000240 
OCO1h4 
done 
000143 
000144 
000185 
ocos6 
000107 
000148 
020189 
0c0190 
000191 
000192 
000193 
000496 
090195 
000196 
000197 
000198 
000199 
000200 
000201 
090202 
oc02u3 
000204 
000205 
o0n2te 
000207 
000208 
000209 
000210 
000231 
000212 
000215 
ond2ete 
ocoe1s 
000216 
000217 
oc0e16 
oco219 
oco220 
oco221 
000222 
oco223 
000224 
000225 
000226 
0c0227 
000228 
000229 
000230 
000231 
000232 
060233 
oco234 
000235 
0n0256 
oco237 
000234 


2, PERLE ete mE os * - ee 


j92aetR(145) 
tistRa 
12Be8IR(19) 
12sIRB 
CaLL COMP (TCHEM(CI4e1MGol), TCHEMC 12, 1660154) -VOID, TFLAG? 
IFCLELAG=1) 742,7430742 
743 uCMasS 
RETURN 
742 CONTINUE 
753 CALL LOOK( 18, TSTTSCL,IMG sLdeTCHEM( 20 IMG ol Do TLMCKA,IMG 44), 
1 0,0,Y2(2)+¥2(3),2) 
CALL LOOK( LA, TE TVS6L. IMG 119, TCHEMC 1s IMGOL,2) 0 VLMCCL.IMGOL,4), 
4 9,0,¥2059,V2(7),2) 
CabL LOOK( 18, TS. TISCL IMG e220 TCKEMCA IMG 2200 TLMECL,IMG 42), 
1 %.0,Y209)92¥2(112),2) 
CALL LOOK(18, TS, TVS61,1M64152) > TCHEMC So IMGO452) so TLMCCL,IMGOL,2). 
1 (9,0,72€13),¥2(15),2) 
OO 4321 [81.8 
432% Y2C1L)8Y2C 1) oVRPO(V2¢168)-Y2¢1)) 
4322 Df 4323 [81,4 
4323 VAC TL ISY2CT OVRMO(Y2( 104) -¥205)) 
433 CaLL LOOK (4,78 TT262.2),TEP(152),0,:0, 00EMEVsOMIVIL) 
JECMATL(1292) 434,442,434 
434 CALL LOOK (3, TS, 77203519, TEPCL049,000,00VS00502) 
EMS VSEMTVOXP10(Y3( 2 EMI Y) 
OME VOOM VexP1e(D3(LIeNMIY) 
442 TSSQeTSeTS 
4422 RADMSIGOEM| VeTESQCTSSReVE 
G39 ERRACHOY2]( 1 CEMIVOGRACRADOB( 1 OTSCERFX 
ERRMBAMAXS ( ABS(CHOYR(1)), ABSCEMTVeQRA), ABS( RAD)» 408(B(1) 078), 
1 ABSCERFX)) 
DERReCHeY2(3)o( (GRA*RADJEMIV)ODMIV=4, /TSeRAD@B(1)) 
ERRCSERR/DERR 
vi TERC ITS) 8Y§ 
CITERCITS)SERR 
TSeTScERARC 
4391 TSM1e01, £030 
7$MA0¢1.E030 
IFCILO(AS8)-1RA) $50.5,4902.450% 
4500 LFCILOCLG) IRB) 4303, 4501,4509 
4505 TSMPeAMAXa( TEM], TTSC IRB, IMGOd, LPR)*TTS( IRB-1, [MGod, SPR), 
LITSC IRA, IMG. JPRIOTTS( [RAL, 286. 1PR)I/2. 
TSeAMAXL( TS, TSM) 
4502 LECIMICSB=3RAWL) 4907,4907, 45008 
4508 JECIHICA9)-IRBo1) 4507,4507,48910 
4510 TSMASAMING( TEMA, TTS( [RBOL, 1MGO1, JPRIOTTS( [RBO2, 14605, 1PR), 
LYTSCTRASL, IMG, LPRISTTS( 1RAS2, 1G, IPR) 72, 
TSSAMINS (TS, TSMA) 
4507 CONTINUE 
SECTTS=90) 4410441,998 
441 [7Sa]TSe4 
{FC ABS(ERR/ERRM)=,04) 4390,4300, 430 
998 WRITE (KOUT,329) 
WRITECKOUT, SO2)(VITERCT) ELTER( 2), 104,534) 
WRITECKCUT, 582) THeOTH,VRM,ERFX, TaBSC ,EMIVeOMIV, RAD, BCL) CH PHL, 
1 M01) HE, XPL,QRA,Y201),V2029,¥2¢3), 4204) 
THa THE IN 
Jcmas0 
RETURN 
sereeeo-nme POST ITERATION 
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B3Aa 
0304 
e384 
O38 


e35ea 
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